repositories
/
cc1516.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
s
[cc1516.git]
/
examples
/
passBy.spl
1
//modify1(s) :: [Char] -> [Char] {
2
// //s.hd = 'a';
3
// s.tl = [];
4
// return s;
5
//}//
6
7
//modify2(c) :: Char -> Void {
8
// c = 'a';
9
//}//
10
11
//main() {
12
// var zs = "bar";
13
// var zc = 'b';
14
// var zss = modify1(zs);
15
// modify2(zc);//
16
17
// print("zs was bar, is now: ");
18
// print(zs);
19
// print(", m1 returned: ");
20
// print(zss);
21
// print("\n");
22
// print("zc was 'b', is now: ", zc, "\n");
23
//}
24
25
modi(t) :: (Int,Int) -> Void {
26
t.fst = 1;
27
}
28
29
main() {
30
var x = (2,3);
31
print(x.fst);
32
modi(x);
33
print(x.fst);
34
}