在一个框中列出多个列表，并带有子标题和使用列表计数器

Question

以下应该符合您的要求。它是借助subcaption以及一些手动浮动管理：

在此处输入图片描述

\documentclass{article}
\usepackage{verbatimbox}
\usepackage[T1]{fontenc}
\usepackage{fancyvrb,listings,caption}
\usepackage[labelformat=simple]{subcaption}
\usepackage[scaled=.73]{beramono}
\fvset{baselinestretch=0.94}
\parindent=0pt
\parskip = 6pt

\makeatletter
\AtBeginDocument{\DeclareCaptionSubType{lstlisting}
\renewcommand{\p@sublstlisting}{\thelstlisting}
\renewcommand{\thesublstlisting}{(\alph{sublstlisting})}
}
\makeatother
% "define" Scala
\lstdefinelanguage{scala}{
  morekeywords={abstract,case,catch,class,def,%
    do,else,extends,false,final,finally,%
    for,if,implicit,import,match,mixin,%
    new,null,object,override,package,%
    private,protected,requires,return,sealed,%
    super,this,throw,trait,true,try,%
    type,val,var,while,with,yield,then}, % we use `then` in the pseudocode
  otherkeywords={=>,<-,<\%,<:,>:,\#,@},
  sensitive=true,
  morecomment=[l]{//},
  morecomment=[n]{/*}{*/},
  morestring=[b]",
  morestring=[b]',
  morestring=[b]"""
}

% activate the language and predefine settings
\lstset{
    basicstyle=\linespread{0.94}\ttfamily,%
    language=scala,%
    commentstyle=\itshape,%
    keywordstyle=\bfseries,%
    fancyvrb=true,%
    mathescape=true,%  for pseudocode
    captionpos=b, % captions at the bottom
}
\newsavebox{\verbsavebox}
\begin{document}

In Fig.~\ref{fig:label} versus Listings~\ref{lst:label1} and \ref{lst:label2}.

\begin{figure}
Empty
\caption{fig}\label{fig:label}
\end{figure}

\begin{figure} % [htp]
% Let's make this an lstlisting, not a figure...
\makeatletter\def\@captype{lstlisting}\makeatother
\begin{lrbox}{\verbsavebox}
\begin{lstlisting}[xrightmargin=.6667\linewidth]
trait Sys[S <: Sys[S]] {
  type ID <: Ident[S#Tx]
  type Tx
}

trait Muta[S <: Sys[S]] {
  def id: S#ID
  // well defined:
  def dispose(tx: S#Tx) =
    id.dispose(tx)
}

trait Ident[Tx] {
  def dispose(tx: Tx): Unit
}
\end{lstlisting}
\end{lrbox}
\subcaptionbox{list1\label{lst:label1}}{\usebox{\verbsavebox}}\hfill%
\begin{lrbox}{\verbsavebox}
\begin{lstlisting}[xrightmargin=.6667\linewidth]
trait Sys {
  type ID <: Ident[Tx]
  type Tx
}

trait Muta[S <: Sys] {
  def id: S#ID   
  // incompatible type:
  def dispose(tx: S#Tx) =
    id.dispose(tx)
}
\end{lstlisting}
\end{lrbox}
\subcaptionbox{list2\label{lst:label2}}{\usebox{\verbsavebox}}\hfill%
\begin{lrbox}{\verbsavebox}
\begin{lstlisting}[xrightmargin=.6667\linewidth]
trait Sys {
  type ID <: Ident[Tx]
  type Tx
}

trait Muta[S <: Sys] {
  // evidence required:
  val s: S
  def id: s.ID
  // well defined:
  def dispose(tx: s.Tx) =
    id.dispose(tx)
}
\end{lstlisting}
\end{lrbox}
\subcaptionbox{list3\label{lst:label3}}{\usebox{\verbsavebox}}
\caption{Total caption\label{lst:total}}
\end{figure}

\end{document}

\verbsavebox每个列表都设置在宽度为的框中.3333\linewidth（通过设置xrightmargin=.6667\linewidth）。这些框一旦设置，就会使用添加\subcaptionbox{<caption>}{\usebox{\verbsavebox}}，其中<caption>包括标题和\label。

在figure环境中，我们策略性地将更新\@captype为lstlisting。这会让 TeX 误以为它正在处理一个浮点数，lstlisting当你调用时\caption。这是必要的，因为\subcaptions 被设置为前main \caption，它要求正确设置\p@lstlisting（与 subcounter 关联的父计数器）。这一切都与包的功能有关。sublstlistingsubcaption

子标题的定义\AtBeginDocument与浮点定义一致listings，同时完成。subcaption要求有一个浮点数存在，然后才允许为其定义子标题。

Answer 1