当前位置：文江博客话题详情

方案函数的位置独立参数

发布于 2024-07-25 00:53:36 字数 26 浏览 2 评论 0原文

如何将与位置无关的参数传递给方案函数？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

你怎么这么可爱啊 2024-08-01 00:53:36

在 PLT 方案中，您可以使用：

(define area
   (lambda (x #:width y)
     (* x y)))

(area 3 #:width 10)

或者

(area #:width 10 3)

两者都会返回 30。

In PLT Scheme you can use:

(define area
   (lambda (x #:width y)
     (* x y)))

(area 3 #:width 10)

(area #:width 10 3)

both would return 30.

回复收藏 0 原文

一念一轮回 2024-08-01 00:53:36

方案中没有对此的标准支持，但请查看 this

回复收藏 0 原文

吻风 2024-08-01 00:53:36

我不是方案专家，但我认为参数需要是一对而不是原子，然后您从对中创建一个参数列表，并使用 let 块将值绑定到实际参数。而且，出于对所有美好事物的热爱，请调用辅助函数以正确的顺序使用参数完成实际工作，因为在递归中调用 get-param 会变得昂贵。

(define get-param (lambda (name pair-list)
    (cond ((null? pair-list) nil)
          ((eq? name (caar pair-list)) (cadr (car pair-list)))
          (t (get-param name (cdr pair-list))))))

; position independent subtract always subtracts y from x
; usage (f '(x 7) '(y 9)) => -2
;       (f '(y 9) '(x 7)) => -2
(define f (lambda (x-pair y-pair)
    (let ((pl (list x-pair y-pair))
        (let ((x (get-param 'x pl)) (y (get-param 'y pl))
            (- x y)))))

真正聪明的人会创建一个工厂函数，该函数将采用任意 lambda 表达式并从中构建等效的位置独立 lambda。

I am not a scheme guru, but I'm thinking that parameters need to be a pair rather than an atom, then you make a parameter list from your pairs and use a let block to bind the values to actual parameters. And, for the love of all that is beautiful, call a helper function to do the actual work with the parameters in the right order since calling get-param in recursion is going to get expensive.

(define get-param (lambda (name pair-list)
    (cond ((null? pair-list) nil)
          ((eq? name (caar pair-list)) (cadr (car pair-list)))
          (t (get-param name (cdr pair-list))))))

; position independent subtract always subtracts y from x
; usage (f '(x 7) '(y 9)) => -2
;       (f '(y 9) '(x 7)) => -2
(define f (lambda (x-pair y-pair)
    (let ((pl (list x-pair y-pair))
        (let ((x (get-param 'x pl)) (y (get-param 'y pl))
            (- x y)))))

Someone who is really clever would make a factory function that would take an arbitrary lambda expression and build an equivalent position independent lambda from it.

回复收藏 0 原文

~没有更多了~