5 lines
150 B
Scheme
5 lines
150 B
Scheme
(if (if (number? input) (number? (car extra)) #f)
|
|
(+ input (car extra))
|
|
(if (number? (car extra))
|
|
(+ (string->number input) (car extra))
|
|
0)) |