mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-16 11:48:47 +00:00
22 lines
346 B
Text
22 lines
346 B
Text
|
fun map (f, l) {
|
||
|
|
case l of
|
||
|
|
{} -> return {}
|
||
|
|
| h : tl -> return (f (h) : map (f, tl))
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
fun a (x) {return x + 1}
|
||
|
|
fun b (x) {return x + 2}
|
||
|
|
|
||
|
|
fun print_list (x) {
|
||
|
|
case x of
|
||
|
|
{} -> skip
|
||
|
|
| h : tl -> write (h); print_list (tl)
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
print_list ({1, 2, 3});
|
||
|
|
print_list (map (a, {1, 2, 3}));
|
||
|
|
print_list (map (b, {1, 2, 3}))
|
||
|
|
|