Fixed fib sample

This commit is contained in:
Rafał Grodziński
2025-08-01 12:39:09 +09:00
parent 9a04c0c49a
commit 3726e88865

View File

@@ -1,6 +1,6 @@
@extern putchar fun: character sint32 -> sint32
@extern putchar fun: character u32 -> u32
fib fun: number sint32 -> sint32
fib fun: number u32 -> u32
ret if number < 2:
number
else
@@ -8,13 +8,13 @@ fib fun: number sint32 -> sint32
;
;
printNum fun: number sint32
biggest sint32 <- 10
printNum fun: number u32
biggest u32 <- 10
rep biggest <= number: biggest <- biggest * 10
biggest <- biggest / 10
rep biggest > 0:
digit sint32 <- number / biggest
digit u32 <- number / biggest
putchar(digit + '0')
number <- number % biggest
biggest <- biggest / 10
@@ -22,9 +22,9 @@ printNum fun: number sint32
;
// Print first 20 fibonaci numbers
main fun -> sint32
rep i sint32 <- 0, i < 20:
res sint32 <- fib(i)
main fun -> u32
rep i u32 <- 0, i < 20:
res u32 <- fib(i)
printNum(res)
putchar('\n')
i <- i + 1