fix test.cval
This commit is contained in:
@@ -4,7 +4,9 @@ val [int->int] fib (int n) {
|
|||||||
return if eq n 0 {
|
return if eq n 0 {
|
||||||
1
|
1
|
||||||
} else {
|
} else {
|
||||||
mul n fib
|
mul n {
|
||||||
|
fib {sub n 1}
|
||||||
|
}
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -24,4 +26,4 @@ val [char * int->char]get_char_of(char* s int index) {
|
|||||||
return * {
|
return * {
|
||||||
add s index
|
add s index
|
||||||
};
|
};
|
||||||
}
|
};
|
||||||
Reference in New Issue
Block a user