Skip to content

Instantly share code, notes, and snippets.

@youz
Created March 29, 2011 12:04
Show Gist options
  • Save youz/892230 to your computer and use it in GitHub Desktop.
Save youz/892230 to your computer and use it in GitHub Desktop.
grassの w → "ぽ" W → "ー" v → "ん"
ref. http://twitter.com/gengar68/status/52532965556748288
ぽんぽーぽぽぽぽーぽぽぽぽぽぽーーーーーぽーーーーーぽぽぽぽんぽぽぽぽーーーぽぽ
ーぽぽーーーーーーぽぽぽぽーぽぽんぽーーぽーぽぽんぽぽーーぽんぽーーーぽぽーーー
ーーぽぽぽーぽぽーーーーーーぽーーーーーーーぽーーーーぽーーーーーぽーーーーーー
ぽーーーーーーーーーーーーーーぽぽぽぽぽぽぽぽーぽーぽーーーぽぽーーーーぽぽぽぽ
ぽぽぽーーーーーぽぽぽぽぽぽぽーーーーーーぽぽぽぽぽぽぽーーーーーーーーーーーー
ーーーーーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーぽぽぽぽぽぽぽぽぽ
ぽぽぽぽぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽぽ
ぽぽぽぽぽーーぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽーーーぽぽぽぽぽぽぽぽーーーーー
ぽーーーーーぽぽぽぽぽぽぽぽぽーーーーーーーぽーーーーーーーーぽーーーーーーーー
ーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーーーーーーーーーーーぽーぽぽぽーーぽーー
ーぽーーーーぽーーーーーーーーーーーーーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽ
ぽーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽ
ーぽぽぽぽぽぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽぽぽぽーーーぽぽぽぽぽぽぽーーーー
ぽーーーーーぽぽぽぽぽぽぽぽーーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽー
ーーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーーーーーー
ーーーぽぽぽぽぽぽぽぽーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽ
ぽぽぽぽーーぽぽぽぽぽぽぽぽぽぽぽぽぽーーーぽぽぽぽぽぽぽぽぽぽぽぽぽーーーーぽ
ぽぽぽぽぽぽぽーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーーーーー
ーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽ
(require "grass") ; https://github.com/youz/xyzzy-lisp/blob/master/grass.l
(defun popopopo-n (str)
(map () (lambda (b a) (setq str (substitute a b str))) "ぽーん" "wWv")
(grass:run str))
; (popopopo-n "ぽーーぽぽぽぽん")
; | w
; #<lexical-closure: (anonymous)>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment