mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 14:58:50 +00:00
18 lines
287 B
Text
18 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}))
|