RosettaCodeData/Task/Loops-Infinite/Racket/loops-infinite.rkt

13 lines
155 B
Racket
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
#lang racket
;; Using recursion
(define (loop)
(displayln "SPAM")
(loop))
(loop)
;; Using a for loop
(for ([i (in-naturals)])
(displayln "SPAM"))