blob: 65fe29eefe64d697b1eebf7bddeedaef2a670cae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module NotatieHOF
import StdEnv
f1 :: // geef meest algemene type
f1 a b = a b
f2 :: // geef meest algemene type
f2 a b c = a c (b c)
f3 :: // geef meest algemene type
f3 a b = a (a b)
f4 :: // geef meest algemene type
f4 a b c = [x \\ x <- [b .. c] | a x]
f5 :: // geef meest algemene type
f5 a b (c,d) = (a c,b d)
f6 :: // geef meest algemene type
f6 = f5
f7 :: // geef meest algemene type
f7 "-" = -
f7 "+" = +
f7 "*" = *
f7 "/" = /
Start = 0
|