mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
return fixed for real, tests added
This commit is contained in:
parent
644c1b3086
commit
274bda6938
95 changed files with 870 additions and 14 deletions
19
regression/test092.expr
Normal file
19
regression/test092.expr
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
fun f (l) {
|
||||
infix "===" at "==" (a, b) {
|
||||
a == b
|
||||
}
|
||||
|
||||
case l of
|
||||
{} -> 1
|
||||
| {_} -> 1
|
||||
| a : b : tl -> a === b && f (b : tl)
|
||||
esac
|
||||
}
|
||||
|
||||
local x = read ();
|
||||
|
||||
write (f ({}));
|
||||
write (f ({1}));
|
||||
write (f ({1, 1}));
|
||||
write (f ({1, 1, 1}));
|
||||
write (f ({1, 2, 1}))
|
||||
Loading…
Add table
Add a link
Reference in a new issue