azur
/
bobbylisp
mirror of https://github.com/azur1s/bobbylisp.git
1
1
Fork 0
Code Issues Projects Releases Wiki Activity

rename

pull/4/head
Natapat Samutpong 2022-04-09 22:17:36 +07:00
parent dfe6efd326
commit 47fbb70b8d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
example/iter.hz → example/map.hz
View File

@ -1,4 +1,4 @@
fun iter_ (vec: [int]) (fn: |int| -> int) (current: int): void = do
fun map_ (vec: [int]) (fn: |int| -> int) (current: int): void = do
if current == @len(vec) then
do end
else
@ -8,16 +8,16 @@ fun iter_ (vec: [int]) (fn: |int| -> int) (current: int): void = do
|> @write(_)
@write("\n")
iter_(vec, fn, current + 1)
map_(vec, fn, current + 1)
end
end
end
fun iter (vec: [int]) (fn: |int| -> int): void = iter_(vec, fn, 0)
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]
iter(foo, mul10)
end
map(foo, mul10)
end