한 줄 구구단 in scheme

구구단 scheme

#lang scheme (do ([i 1 (+ i 1)]) [(= i 10)] (do ([j 1 (+ j 1)]) [(= j 10)] (printf "~ax~a=~a~n" i j (* i j))))

iterator를 쉽게 배워보는 계기가 됨. 발단은 이곳 다즐링님 포스팅