suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding a simple looping example

Browse Source
This commit is contained in:
Danny Yoo 2012-02-28 19:23:46 -05:00
parent 1e152258f7
commit 32ff42bebe
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/more-tests/simple-loop.expected Normal file
View File

@ -0,0 +1 @@
4950

8
tests/more-tests/simple-loop.rkt Normal file
View File

@ -0,0 +1,8 @@
#lang planet dyoo/whalesong/base
(let myloop ([i 0] [acc 0])
(cond
[(< i 100)
(myloop (add1 i) (+ acc i))]
[else
acc]))

1
tests/run-more-tests.rkt
View File

@ -7,6 +7,7 @@
;; type replaced with .expected. ;; type replaced with .expected.
(test "more-tests/simple.rkt") (test "more-tests/simple.rkt")
(test "more-tests/simple-loop.rkt")
(test "more-tests/booleans.rkt") (test "more-tests/booleans.rkt")
(test "more-tests/module-scoping.rkt") (test "more-tests/module-scoping.rkt")
(test "more-tests/checking.rkt") (test "more-tests/checking.rkt")