Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2009-07-10

「最悪なHello World」に挑戦2

| 02:36 | 「最悪なHello World」に挑戦2 - わだばLisperになる を含むブックマーク はてなブックマーク - 「最悪なHello World」に挑戦2 - わだばLisperになる

寝ようと思って目を閉じたらこれが浮んでしまったので記念エントリ

(defmacro left_parenthesis-latin_small_letter_p-latin_small_letter_r-latin_small_letter_i-latin_small_letter_n-latin_small_letter_t-space-quotation_mark-latin_capital_letter_h-latin_small_letter_e-latin_small_letter_l-latin_small_letter_l-latin_small_letter_o-comma-space-latin_capital_letter_w-latin_small_letter_o-latin_small_letter_r-latin_small_letter_l-latin_small_letter_d-exclamation_mark-quotation_mark-right_parenthesis (&whole whole)
  (read-from-string
   (map 'string #'name-char
        (ppcre:split "-" (symbol-name (car whole))))))

実行

(left_parenthesis-latin_small_letter_p-latin_small_letter_r-latin_small_letter_i-latin_small_letter_n-latin_small_letter_t-space-quotation_mark-latin_capital_letter_h-latin_small_letter_e-latin_small_letter_l-latin_small_letter_l-latin_small_letter_o-comma-space-latin_capital_letter_w-latin_small_letter_o-latin_small_letter_r-latin_small_letter_l-latin_small_letter_d-exclamation_mark-quotation_mark-right_parenthesis)
;-> "Hello, World!"
;=> "Hello, World!"