File: SaveRestoreIn.lhs

package info (click to toggle)
lhs2tex 1.9-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,544 kB
  • ctags: 28
  • sloc: haskell: 3,364; sh: 2,773; makefile: 349
file content (18 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
%include verbatim.fmt

\begingroup
\let\origtt=\tt
\def\tt#1#2{\origtt}
>\savecolumns
>\begin{code}
>intersperse               ::  a -> [a] -> [a]
>intersperse  _    []      =   []
>intersperse  _    [x]     =   [x]
>\end{code}
>The only really interesting case is the one for lists 
>containing at least two elements:
>\restorecolumns
>\begin{code}
>intersperse  sep  (x:xs)  =   x : sep : intersperse sep xs
>\end{code}
\endgroup