mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 21:23:53 +03:00
21 lines
417 B
Idris
21 lines
417 B
Idris
|
module Wheres
|
||
|
|
|
||
|
|
import Stuff
|
||
|
|
|
||
|
|
reverse : List a -> List a
|
||
|
|
reverse xs = rev' Nil xs
|
||
|
|
where
|
||
|
|
rev' : List a -> List a -> List a
|
||
|
|
rev' acc Nil = acc
|
||
|
|
rev' acc (x :: xs) = rev' (x :: acc) xs
|
||
|
|
|
||
|
|
foo : Int -> Int
|
||
|
|
foo x = case isLT of
|
||
|
|
Yes => prim__mul_Int x 2
|
||
|
|
No => prim__mul_Int x 4
|
||
|
|
where
|
||
|
|
data MyLT = Yes | No
|
||
|
|
|
||
|
|
isLT : MyLT
|
||
|
|
isLT = ifThenElse (intToBool (prim__lt_Int x 20)) Yes No
|