minor implement lexer
This commit is contained in:
14
test.cval
14
test.cval
@@ -1,19 +1,21 @@
|
||||
val int s 3; # global
|
||||
val int s 3; // global
|
||||
|
||||
val [int->int] fib (int n) {
|
||||
return if == n 0 {
|
||||
return if eq n 0 {
|
||||
1
|
||||
} else {
|
||||
n * fib
|
||||
mul n fib
|
||||
};
|
||||
};
|
||||
|
||||
val [->int] main {
|
||||
val str line input;
|
||||
val int n to_int line,;
|
||||
if < n 0 {
|
||||
val int n to_int line;
|
||||
if less n 0 {
|
||||
print "illegal number"
|
||||
} else {
|
||||
print to_str fib n,;
|
||||
print to_str {
|
||||
fib n
|
||||
};
|
||||
}
|
||||
};
|
||||
Reference in New Issue
Block a user