Skip to content

Instantly share code, notes, and snippets.

@b4284

b4284/gist:11ff0d170d163b916f54

Last active August 29, 2015 14:17
Show Gist options
  • Save b4284/11ff0d170d163b916f54 to your computer and use it in GitHub Desktop.
Save b4284/11ff0d170d163b916f54 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.scm
;; Guile 2.0.11
(use-modules (srfi srfi-1))
(let ((a (map (lambda (x) (char-upcase (string-ref x 0)))
'("John" "Marry" "Carson" "Zed")))
(b (map integer->char (iota 26 65))))
(map (lambda (x) (cons x (count (lambda (y) (char=? x y)) a))) b))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment