Open wcs4217 opened 3 years ago
https://hyperpolyglot.org/lisp
Racket capitalize
; "Foo Bar": (string-titlecase "foo bar")
Racket do
(do ((i 1) (sum 0)) ((> i 100) sum) (set! sum (+ sum i)) (set! i (add1 i)))
(do ((i 1 (add1 i)) (sum 0 (+ sum i))) ((> i 100) sum))
Racket loop
(let loop ((i 1)) (displayln "hello") (unless (> i 10) (loop (add1 i))))
Racket dotimes
(for ([i (in-range 10)]) (displayln "hello"))
https://hyperpolyglot.org/lisp
Racket capitalize
; "Foo Bar": (string-titlecase "foo bar")
Racket do
(do ((i 1) (sum 0)) ((> i 100) sum) (set! sum (+ sum i)) (set! i (add1 i)))
(do ((i 1 (add1 i)) (sum 0 (+ sum i))) ((> i 100) sum))
Racket loop
(let loop ((i 1)) (displayln "hello") (unless (> i 10) (loop (add1 i))))
Racket dotimes
(for ([i (in-range 10)]) (displayln "hello"))