Revision as of 22:23, 28 January 2017 (view source) Jaydub (talk \| contribs) (Add Common Lisp implementation.) ← Older edit		Revision as of 22:30, 28 January 2017 (view source) Jaydub (talk \| contribs) m (A little bit more efficient) Newer edit →
Line 787: (format t "~D~%" (length (ludic-numbers 1000))) (terpri) (~~loop with~~let ((numbers = (ludic-numbers 30000 2005))) (format t "~{#~D: ~D~%~}" ~~for n from 1999 below 2005~~ do ~~(format~~ t ~~"#~D:~~ ~~~D~%"~~(mapcan #'list '(1+2000 n2001 2002 2003 2004 2005) (~~nth~~nthcdr n1999 numbers)))) (terpri) (loop with numbers = (ludic-numbers 250)

Ludic numbers (view source)