5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

(make-thread :name common-lisp :part 5)

418 :デフォルトの名無しさん:2008/08/27(水) 21:20:52
別にyは負数でもよくね?ってことで
(defun my-round2 (x y)
(float (* (round x #1=(expt 10 y)) #1#)))

(my-round2 95.6453 -3)
95.645

(my-round2 95.6453 -2)
95.65

あとCLに限らずroundは四捨五入とは違う(丁度真ん中は近い方の偶数になる)から
注意してね。

(round 2.5)
2

(round 2.6)
3

(round 3.5)
4


278 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)