mirror of
https://github.com/azur1s/bobbylisp.git
synced 2024-10-16 02:37:40 -05:00
24 lines
502 B
Plaintext
24 lines
502 B
Plaintext
fun map_ (vec: [int]) (fn: |int| -> int) (current: int): void = do
|
|
if current == @len(vec) then
|
|
do end
|
|
else
|
|
do
|
|
@get(vec, current)
|
|
|> fn(_)
|
|
|> @write(_)
|
|
@write("\n")
|
|
|
|
map_(vec, fn, current + 1)
|
|
end
|
|
end
|
|
end
|
|
|
|
fun map (vec: [int]) (fn: |int| -> int): void = map_(vec, fn, 0)
|
|
|
|
fun mul10 (x: int): int = x * 10
|
|
|
|
fun main: void = do
|
|
let foo: [int] = [69, 420, 727, 1337, 42069, 69420]
|
|
map(foo, mul10)
|
|
end
|