Anonymous user
Hilbert curve: Difference between revisions
m
→{{header|Racket}}
(+Racket) |
|||
Line 1,784:
(match-define-values (image _ _ _)
(for/fold ([image empty-image] [x 0] [y 0] [theta (/ pi 2)])
([cmd (in-list (get-cmds N 'A))])
(define-values (new-x new-y new-theta)
| |||