File: proc-applications2.hs

package info (click to toggle)
haskell-ormolu 0.7.2.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 5,528 kB
  • sloc: haskell: 16,077; makefile: 7
file content (11 lines) | stat: -rw-r--r-- 235 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
{-# LANGUAGE Arrows #-}

t = proc ys ->
  (| f (\y -> returnA -< y) |) ys

g x = proc (y, z) ->
  ( case compare x y of
      LT -> \a -> returnA -< x + a
      EQ -> \b -> returnA -< y + z + b
      GT -> \c -> returnA -< z + x
  ) 1