File: Indent2a.lhs

package info (click to toggle)
lhs2tex 1.17-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 1,884 kB
  • sloc: haskell: 3,896; makefile: 294; sh: 221
file content (14 lines) | stat: -rw-r--r-- 479 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
%include poly.fmt

\begin{code}
scanr1        ::  (a -> a -> a) -> [a] -> [a]
scanr1 f xxs  =   case xxs of
                     x:xs ->  case xs of
                                 []  ->  [x]
                                 _   ->  let 
                                            qs = scanr1 f xs 
                                         in
                                            case qs of 
                                               q:_ -> f x q : qs

\end{code}