Idris2-boot/tests/idris2/basic008/If.idr

data Bool = False | True
data Nat = Z | S Nat

not : Bool -> Bool
not False = True
not True = False

isZero : Nat -> Bool
isZero Z = True
isZero (S k) = False

isOdd : Nat -> Bool
isOdd Z = False
isOdd (S k) = not (isOdd k)

testZ : Nat -> String
testZ x = if isZero x then "Zero" else
             if isOdd x then "Odd" else "Even"
Set fresh name counter on loading Main ttc Make sure this is the counter from the right namespace, or we might get name clashes at the REPL 2019-06-27 15:42:49 +03:00			`data Bool = False \| True`
			`data Nat = Z \| S Nat`

			`not : Bool -> Bool`
			`not False = True`
			`not True = False`

			`isZero : Nat -> Bool`
			`isZero Z = True`
			`isZero (S k) = False`

			`isOdd : Nat -> Bool`
			`isOdd Z = False`
			`isOdd (S k) = not (isOdd k)`

			`testZ : Nat -> String`
Remove trailing whitespace from Idris sources. This is the result of running the command: $ find . -name '*.idr' -type f -exec sed -i -E 's/\s+$//' {} + I confirmed before running it that this would not affect any markdown formatting in documentation comments. 2019-10-26 00:24:25 +03:00			`testZ x = if isZero x then "Zero" else`
Set fresh name counter on loading Main ttc Make sure this is the counter from the right namespace, or we might get name clashes at the REPL 2019-06-27 15:42:49 +03:00			`if isOdd x then "Odd" else "Even"`