Simple Scheme で電卓をつくってみる(7.5)
単に第2引数を返すだけだと最初の数値入力で小数部分に余分な0を入れた場合、=を押しても0が残ってしまいます。別に残ってもいいのですが取り除くのもそれほど難しくありません。
(define (get2nd x y) (make-num (num-sign y) (num-i y) (rdrop0s (num-f y))))
続きます。
単に第2引数を返すだけだと最初の数値入力で小数部分に余分な0を入れた場合、=を押しても0が残ってしまいます。別に残ってもいいのですが取り除くのもそれほど難しくありません。
(define (get2nd x y) (make-num (num-sign y) (num-i y) (rdrop0s (num-f y))))
続きます。