56 lines
1.1 KiB
Plaintext
56 lines
1.1 KiB
Plaintext
app [main] { pf: platform "https://github.com/roc-lang/basic-cli/releases/download/0.16.0/O00IPk-Krg_diNS2dVWlI0ZQP794Vctxzv0ha96mK0E.tar.br" }
|
|
|
|
import pf.Stdout
|
|
|
|
# listLen = \list ->
|
|
# List.len (list)
|
|
|
|
|
|
# sumList = \counter, maxLen ->
|
|
# if counter == maxLen then
|
|
# 1
|
|
# else
|
|
# newCounter = counter + 1
|
|
# ((sumList newCounter maxLen) + 1)
|
|
|
|
sumList : Num *, Num * -> Num *
|
|
|
|
sumList = \counter, maxLen ->
|
|
if counter == maxLen then
|
|
1
|
|
else
|
|
newCounter = counter + 1
|
|
((sumList newCounter maxLen) + 1)
|
|
|
|
plusTwo: Num a -> Num a
|
|
plusTwo = \i ->
|
|
i + 2
|
|
|
|
main =
|
|
sum = sumList 0 7
|
|
Stdout.line! (Num.toStr(sum))
|
|
|
|
# nums = [1, 2, 3]
|
|
# ind = 1
|
|
# res = List.get nums ind
|
|
|
|
# when res is
|
|
# Ok value -> value
|
|
# Err OutOfBounds -> 0
|
|
|
|
i = plusTwo 4
|
|
Stdout.line! (Num.toStr(i))
|
|
|
|
|
|
|
|
|
|
# sum = sumList(0, 4)
|
|
# #Stdout.line! (Num.toStr(sumList 2, 3))
|
|
# Stdout.line! (sum)
|
|
# gomus = [1, 2, 3]
|
|
# gomusLen = List.len( gomus )
|
|
# Stdout.line! (Num.toStr(gomusLen))
|
|
|
|
|
|
|