Как установить параметры по умолчанию или дополнительные параметры в схеме?

Question

Я пытаюсь выяснить, как установить параметры по умолчанию или дополнительные параметры в Схеме.

Я попытался (define (func a #!optional b) (+ a b)), но я не могу найти способ проверить, если b является параметром по умолчанию, потому что просто вызвать (func 1 2) даст ошибку:

Error: +: number required, but got #("halt") [func, +] 

Я также попытался (define (func a [b 0]) (+ a b)) но Я получаю следующее сообщение об ошибке:

Error: execute: unbound symbol: "b" [func] 

Если это поможет, я использую BiwaScheme, используемый в repl.it

Answer 1

Это прекрасно работает в Ракетка:

(define (func a (b 0)) ; same as [b 0] 
    (+ a b)) 

Например:

(func 4) 
=> 4 
(func 3 2) 
=> 5 

... Но это не стандартный синтаксис, это зависит от того, используется интерпретатор Scheme. Там же синтаксис для обработки с переменным числом аргументов, он может быть использован для обработки необязательных аргументов со значениями по умолчанию, но это не будет выглядеть как миленькое:

(define (func a . b) 
    (+ a (if (null? b) 0 (car b)))) 

Как это работает? b Список аргументов. Если он пуст, используйте ноль, иначе используйте значение первого элемента.

Answer 2

Проверьте, поддерживает ли ваша реализация схемы SRFI 89: Optional positional and named parameters.