RosettaCodeData/Task/Loops-Infinite/Racket/loops-infinite.rkt
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

12 lines
155 B
Racket

#lang racket
;; Using recursion
(define (loop)
(displayln "SPAM")
(loop))
(loop)
;; Using a for loop
(for ([i (in-naturals)])
(displayln "SPAM"))