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

ToDo:

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

ɥ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)» 編集