update examples
This commit is contained in:
@@ -1,3 +1,3 @@
|
||||
k x y = x;
|
||||
main = k 3 ((/#) 1 0);
|
||||
main = k 3 (/# 1 0);
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
fac n = case (==#) n 0 of
|
||||
{ <1> -> 1
|
||||
; <0> -> (*#) n (fac ((-#) n 1))
|
||||
; <0> -> *# n (fac (-# n 1))
|
||||
};
|
||||
|
||||
main = fac 3;
|
||||
|
||||
Reference in New Issue
Block a user