fizz-buzz exercise
This commit is contained in:
parent
b3869987da
commit
c546987a07
|
@ -209,13 +209,21 @@
|
|||
(palette . [(def (palette p i)
|
||||
(nth (% i (len p)) p))])
|
||||
(task . [(def (task screen keyboard)
|
||||
(let (y c) '(0 0)
|
||||
(let (i y) '(1 0)
|
||||
(while (< y (height screen))
|
||||
(hline screen y (palette Greys c))
|
||||
(hline screen y (fizzbuzz i))
|
||||
(+= y 3)
|
||||
(++ c))))])
|
||||
(++ i))))])
|
||||
(main . [(def (main screen keyboard)
|
||||
(task screen keyboard))])
|
||||
(fizzbuzz . [(def (fizzbuzz n)
|
||||
(if (= 0 (% n 3))
|
||||
(if (= 0 (% n 5))
|
||||
14
|
||||
12)
|
||||
(if (= 0 (% n 5))
|
||||
10
|
||||
7)))])
|
||||
))
|
||||
(sandbox . (task screen keyboard))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue