mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-07 15:28:49 +00:00
26 lines
293 B
Text
26 lines
293 B
Text
global n;
|
|
|
|
fun hd (l) {
|
|
case l of
|
|
h : _ -> return h
|
|
esac
|
|
}
|
|
|
|
|
|
fun tl (l) {
|
|
case l of
|
|
_ : tl -> return tl
|
|
esac
|
|
}
|
|
|
|
fun print_list (l) {
|
|
case l of
|
|
{} -> skip
|
|
| h : t -> write (h); print_list (t)
|
|
esac
|
|
}
|
|
|
|
n := read ();
|
|
write ({1, 2, 3}.hd);
|
|
print_list ({1, 2, 3}.tl)
|
|
|