Skip to content

Instantly share code, notes, and snippets.

@mnogu

mnogu/gist:355243

Created April 4, 2010 08:42
Show Gist options
  • Save mnogu/355243 to your computer and use it in GitHub Desktop.
Save mnogu/355243 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.sls
(require "japanese.scm")
(filter (lambda(lst)
(and (= (length (car lst)) 2)
(= (length (caar lst)) 2)
(string=? (cadar lst) "w")
(string=? (caaar lst) "w")
(string=? (cadaar lst) "w")))
ja-rk-rule)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment