RosettaCodeData/Task/Loops-Infinite/Racket/loops-infinite.rkt
2023-07-01 13:44:08 -04: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"))