repositories
/
cc1516.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a5ac57d4ce9d2702b6e5e78591f0536a490bff7d
[cc1516.git]
/
examples
/
tempTest.spl
1
//plus(x,y){
2
// return x+y;
3
//}//
4
5
map(f, xs) {
6
if (isEmpty(xs)) {
7
return [];
8
} else {
9
return f(xs.hd) : map(f, xs.tl);
10
}
11
}
12
13
foldr(f, acc, xs) {
14
if(isEmpty(xs)) {
15
return acc;
16
} else {
17
return foldr(f, f(xs.hd, acc), xs.tl);
18
}
19
}
20
21
l2(x) :: Int -> Void {
22
//return print(3);
23
var y = print(3);
24
return;
25
}
26
27
main() {
28
//var f = \x->print(x);
29
var z = map(\x->print(3), 1:2:[]);
30
var x = print(3);
31
//var x = foldr(\x y->x+y, 0, 1:2:[]);
32
//print(x);
33
return;
34
}