落書き用。どなたでもどうぞ。
長い値は動かしにくいので、lispfunction(Internal -> Lisp Function)に入れてquoteして呼ぶと少しは扱いやすいかも。
でももっとスマートなやり方があるかもしれん。
経過時間とメモリ使用、eval回数を調べるのによく使ってるやつ。
cf. time関数 http://www.lispworks.com/documentation/lw60/LW/html/lw-628.htm
単にlist内容全部を処理していくならOmloop+Listloopよりmapcarの方が優秀っぽい。そらそうか。
可読性はomloopの方がいいかもしれん。mapcarの方をもう1段階patchで囲ってもいいが。その場合でも速さやらメモリやらは同じ。
上方拡大 | ↓ | C# | +2 | -3 | +2 | +2 | -3 |
上方拡大 | ↓ | Eb | -3 | +2 | +2 | -3 | +2 |
上方拡大 | ↓ | F# | +2 | +2 | -3 | +2 | -3 |
下方拡大 | ↑ | Ab | +2 | -3 | +2 | -3 | +2 |
下方拡大 | ↑ | Bb | -3 | +2 | -3 | +2 | +2 |
/code/kernel/tools/lisptools.lisp の中に使えそうな関数が入ってる。
first?(アトムでも大丈夫なfirst)とかlist!(リストはそのまま、アトムはリストして返す)とか型変換各種(string-to-number、number-to-string、integer-to-string)。
first-nとまるっきり同じfirstnってのもあったり。
first?(アトムでも大丈夫なfirst)とかlist!(リストはそのまま、アトムはリストして返す)とか型変換各種(string-to-number、number-to-string、integer-to-string)。
first-nとまるっきり同じfirstnってのもあったり。
factorial 階乗 /code/projects/05-mathtools/groups/zn/orbites.lisp