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 |

2008-09-22

ClojureでL-99 (P06 回文の判定)

| 20:34 | ClojureでL-99 (P06 回文の判定) - わだばLisperになる を含むブックマーク はてなブックマーク - ClojureでL-99 (P06 回文の判定) - わだばLisperになる

CLのような順番でドキュメントを付けることもできるようです。ただこの場合、ボディ部を括弧で囲まないと上手くSLIMEのドキュメント表示にひっかかってこないという謎。

ちなみに、Clojureは引数/ボディの書き方が複数あるようですが、どれが標準なんだろうという…。

(defn palindrome? 
  "P06 (*) Find out whether a list is a palindrome.
A palindrome can be read forward or backward; e.g. (x a m a x)."
  ([coll]
     (= (seq coll) (reverse coll))))

(palindrome? "たけやぶ")
;=> false
(palindrome? "たけやぶやけた")
;=> true
(palindrome? '[x a m a x])
;=> true