mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
20 lines
283 B
Text
20 lines
283 B
Text
|
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}))
|