mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
19 lines
278 B
Text
19 lines
278 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
|
|
}
|
|
|
|
var x = read ();
|
|
|
|
write (f ({}));
|
|
write (f (1:{}));
|
|
write (f ({1, 1}));
|
|
write (f ({1, 1, 1}));
|
|
write (f ({1, 2, 1}))
|