mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
15 lines
No EOL
246 B
Text
15 lines
No EOL
246 B
Text
fun hd (l) {
|
|
case l of
|
|
h : _ -> return h
|
|
esac
|
|
}
|
|
|
|
fun tl (l) {
|
|
case l of
|
|
_ : t -> return t
|
|
esac
|
|
}
|
|
|
|
printf ("%s\n", {1, 2, 3}.hd.string);
|
|
printf ("%s\n", {1, 2, 3, 4}.tl.string);
|
|
printf ("%s\n", {1, {2, 3, 4}, 5, 6}.tl.hd.hd.string) |