PasteRack.org
Paste # 5563
2013-10-08 00:54:17

Fork as a new paste.

Paste viewed 2562 times.


Embed:

Greek alphabet

  1. #lang racket
  2. ;; Print the Greek alphabet
  3. (for ([i (in-range 25)])
  4.   (displayln
  5.    (integer->char
  6.     (+ i (char->integer #\u3B1)))))

=>

α

β

γ

δ

ε

ζ

η

θ

ι

κ

λ

μ

ν

ξ

ο

π

ρ

ς

σ

τ

υ

φ

χ

ψ

ω