«前の日記(2012-08-05) 最新 次の日記(2012-08-19)» 編集

ToDo:

  • 99 深呼吸して、おちけつ (~12/31 あと40日)
  • 98 毎日アウトプットを重きにおいた目標をたてる (~12/31 あと40日)
  • 97 買物は行動を変えるもの・ことに限る (~12/31 あと40日)
  • 96 合理的な行動はときに我慢を強いる(~12/31 あと40日)

ɥozɐʞıɥ


2012-08-07 立秋なう [長年日記]

_ [Lisp] 素数判定

最近、Lispをお勉強です。本当はErlangやClojureを目指しているのです。

急がば回れ的に基礎からちまちまと。

(defun prm (n)

(labels ((prm2(n k)

(cond ((< (/ n 2) k) t)

((= (mod n k) 0) nil)

(t (prm2 n (1+ k))))))

(prm2 n 2)))



2002|09|10|11|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|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|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|10|11|12|
2019|01|02|03|04|05|06|07|08|09|10|11|12|
2020|01|02|03|
«前の日記(2012-08-05) 最新 次の日記(2012-08-19)» 編集