Skip to content

Instantly share code, notes, and snippets.

@kosugi

kosugi/ddsk.scm

Last active August 1, 2022 18:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save kosugi/b40040f4a637f46c8dd66db3f92cd52a to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save kosugi/b40040f4a637f46c8dd66db3f92cd52a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ddsk.scm
(use srfi-27)
(let loop ((n 1)(a '(ドド スコ)))
(if (= n #x777)
(display 'ラブ注入♡)
(let ((x (random-integer 2)))
(display (list-ref a x))
(loop (logand #xFFF (+ n n x)) a))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment