projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
[project @ 2001-04-02 21:24:44 by panne]
[ghc-hetmet.git]
/
ghc
/
tests
/
etc
/
testmonobinds.hs
1
-- monobinds
2
-----
3
4
a = 1:a
5
6
-----
7
8
a = 2
9
10
b = 1:a:c
11
12
c = 0:b
13
14
-----
15
16
a = 1
17
18
b = a+a
19
20
-----
21
22
f = \ y -> y
23
24
g x = x
25
26
-----
27
28
f True = 1
29
30
f False = 0
31
32
-----
33
34
f (x:y) = x
35
36
f z = z
37
38
-----
39
40
f (True,x) = x
41
42
f (False,y) = y+1
43
44
-----
45