mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
17 lines
287 B
Text
17 lines
287 B
Text
fun f (l) {
|
|
infix "===" at "==" (a, b) {
|
|
return a == b
|
|
}
|
|
|
|
case l of
|
|
{} -> return 1
|
|
| {_} -> return 1
|
|
| a : b : tl -> return a === b && f (b : tl)
|
|
esac
|
|
}
|
|
|
|
write (f ({}));
|
|
write (f ({1}));
|
|
write (f ({1, 1}));
|
|
write (f ({1, 1, 1}));
|
|
write (f ({1, 2, 1}))
|