(More Irken-like, less Scheme-like)
|Score:||(3.00 in 2 votes)|
;; -*- Mode: Irken -*- ;; https://github.com/samrushing/irken-compiler (include "lib/core.scm") (include "lib/pair.scm") (include "lib/string.scm") (define B 0 -> "no more bottles" 1 -> "1 bottle" x -> (format (int x) " bottles") ) (for-range i 99 (let ((n (- 99 i))) (print-string (format (B n) " of beer on the wall, " (B n) " of beer.\n" "Take one down and pass it around, " (B (- n 1)) " of beer on the wall.\n\n")))) (print-string "No more bottles of beer on the wall, no more bottles of beer.\n") (print-string "Go to the store and buy some more, 99 bottles of beer on the wall.\n")
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!