Анон, подскажи как обработать ситуацию с попыткой деления на ноль в этом коде:(define (calc a x y) `(case a` ``(`+ (+ x y))`` ``(`- (- x y))`` ``(`* (* x y))`` ``(`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))``
Анон, подскажи как обработать ситуацию с попыткой деления на ноль в этом коде:(define (calc a x y)
(define (calc a x y)
`(case a` ``(`+ (+ x y))`` ``(`- (- x y))`` ``(`* (* x y))`` ``(`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))``
(define (calc a x y) (case a `(`+ (+ x y))` `(`- (- x y))` `(`* (* x y))` `(`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))`slffxd
(define (calc a x y) (case a
(case a
`(`+ (+ x y))` `(`- (- x y))` `(`* (* x y))` `(`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))`
slffxd
(define (calc a x y) (case a (`+ (+ x y)) (`- (- x y)) (`* (* x y)) (`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))slffxd
(define (calc a x y) (case a (`+ (+ x y)) (`- (- x y)) (`* (* x y)) (`/ (if not (eq? y 0)) (/ x y)) (write `Divided By Zero)))
Troll, using PLT Scheme
>>1129Not, I use Bigloo.
лиспни схемца
- wakaba 3.0.8 + futaba + futallaby -