- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
(defun combinations (&rest lists) (if (car lists) (mapcan (lambda (inner-val)(mapcar (lambda (outer-val) (cons outer-val inner-val)) (car lists))) (apply #'combinations (cdr lists))) (list nil)))
combinations 函数为每个棒球运动员创建姓名、魅力和位置的所有组合。
(defun main()
(setq m-list (combinations '(Blacket Bluet Browning Greenfield Whitehall)'(four-lear-clover penny rabbit-foot ribbon silver-dollar) '(center- field first-base right-field short-stop third-base)))
(setq contraints (list '(no Browning penny) '(no Browning silver-dollar) '(no Browning right-field) '(no Browning center-field) '(no Bluet center-field) '(no Bluet right-field) '(no Greenfield first-base) '(no Greenfield short-stop)
'(no Greenfield third-base) '(no Whitehall center-field) '(no Whitehall right-field) '(no Greenfield four-leaf-clover) '(no Greenfield penny) '(no Whitehall four-lear-clover) '(no Whitehall penny)
'(no Blacket four-leaf-clover) '(no Blacket penny) '(no Blacket first-base) '(no Blacket third-base) '(no Blacket ribbon) '(no Bluet ribbon) '(no center-field rabbit-foot)))
(loop
(setf n-constraint (car constraints))
(setf m-list (remove-l m-list n-constraint))
(setf constraints (cdr constraints))
(when (null constraints) (return m-list))))
主要功能用于解决玩家位置和魅力未知的问题。主要功能列出了球员的所有可能组合、他们的魅力和他们的棒球位置。然后它声明一个约束列表,每个列表在开始时都声明 no,以指示 no 之后的两个值不应该是任何组合。进行循环以便从约束列表中获取一个约束。约束的汽车本身就是一个列表。然后 Main 使用 remove-l 函数来消除不符合约束条件的组合。 Remove-l 然后返回一个新的 m-list,其组合比以前少
(defun remove-l (a b)
(setf n-list '())
(loop
(setf sample (car a))
(when (and (not (= (find (nth 1 b) sample) nil) (= (find (nth 2 b)sample) nil))) (cons sample (cons n-list nil)))
(setf a (cdr a))(when (null a) (return n-list))))
此处的 Remove-l 函数用于返回一个新列表,其中包含与以前大部分相同的组合。约束列表中的一个约束用于消除某些组合。
(defvar *data* nil)
ignore
(defun add-player (player)
(push player *data*))
ignore
(defun dump-data ()
(dolist (cd *data*)
(format t "~{~a:~10t~a~%~}~%" cd)))
ignore
最佳答案
Xach 已经在评论中指出了拼写错误,但我想我会添加一些关于您的代码的评论。
您不应使用 SETQ
或 SETF
定义变量。这些应该只用于为已经定义的变量设置值。使用 LET
/LET*
对于局部变量,或 DEFVAR
/DEFPARAMETER
对于全局变量。
遍历列表也是很常见的事情,因此有内置的构造:DOLIST
在扩展的 LOOP
中,您可以使用 FOR element IN list
。
在修复这些问题并为您的 REMOVE-L
添加一些更好的缩进后,它看起来像这样:
(defun remove-l (a b)
(let ((n-list '()))
(dolist (sample a n-list) ; That N-LIST is the return value from the loop
(when (and (not (= (find (nth 1 b) sample)
nil)
(= (find (nth 2 b) sample)
nil)))
(cons sample (cons n-list nil))))))
那还是有一些问题。请注意 AND
只有一种形式,而 NOT
有两种形式。 =
用于数字相等,因此您应该使用 NOT
或 NULL
检查是否有错误。当然还有 CONS
不是破坏性的问题;你必须将它的返回值设置到某个地方。就像现在一样,循环不做任何事情。你可以使用 PUSH
将元素添加到列表。
修复这些,你会得到这样的东西:
(defun remove-l (a b)
(let ((n-list '()))
(dolist (sample a n-list)
(when (and (not (find (nth 1 b) sample))
(not (find (nth 2 b) sample)))
(push sample n-list)))))
您可以通过将两个约束分配给变量(使用 LET
或 DESTRUCTURING-BIND
)而不是每次迭代调用两次 NTH
来进一步改进它。然而,过滤列表也是一件很常见的事情,你的 REMOVE-L
可以很容易地用内置的 REMOVE-IF
表达。 .您可以将 MAIN
更改为如下所示:
(defun main ()
(let ((m-list ...) ; I left out the long lists. Fill them in.
(constraints ...))
;; This uses LOOPs destructuring assignment. The underscore is
;; just an unused variable that holds the NO in each constraint.
;; CONSTRAINT-1 and -2 hold the two symbols.
(loop for (_ constraint-1 constraint-2) in constraints
do (setf m-list (remove-if (lambda (sample)
;; I used MEMBER instead of FIND.
;; It doesn't really matter, but
;; MEMBER communicates intent better.
(and (member constraint-1 sample)
(member constraint-2 sample)))
m-list)))
m-list))
编辑: 现在我想起来了,Common Lisp 也有一个内置函数 SUBSETP
检查一个列表是否是另一个列表的子集(不考虑顺序)。这样您就不需要解构约束列表。
(defun main ()
(let ((m-list ...)
(constraints ...))
(dolist (constraint constraints m-list)
(setf m-list (remove-if (lambda (sample)
(subsetp (cdr constraint)
sample))
m-list)))))
这将是使用 currying 的好地方,它不是内置的,但如果你有 Quicklisp安装后,您可以使用 Alexandria 中的实现或者你可以自己写一个简单的:
(defun curry (function &rest arguments)
(lambda (&rest more)
(multiple-value-call function (values-list arguments) (values-list more))))
(defun main ()
(let ((m-list ...)
(constraints ...))
(dolist (constraint constraints m-list)
(setf m-list (remove-if (curry #'subsetp (cdr constraint))
m-list)))))
关于list - 当我运行它时,它声明列表约束未绑定(bind)。这是为什么?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37162270/
我不知道该怎么做... function f1() { var x = 10; function f2(fx) { var x; x = 6;
早期绑定(bind)和后期绑定(bind)有什么区别? 最佳答案 简短的回答是,早期(或静态)绑定(bind)是指编译时绑定(bind),后期(或动态)绑定(bind)是指运行时绑定(bind)(例如
如何在 SwiftUI View 上使用 Binding(get: { }, set: { }) 自定义绑定(bind)与 @Binding 属性。我已成功使用此自定义绑定(bind)与 @State
我经常发现自己遇到问题,即控件的两个(相关)值被更新,并且两者都会触发昂贵的操作,或者控件可能会暂时处于不一致的状态。 例如,考虑一个数据绑定(bind),其中两个值 (x,y) 相互减去,最终结果用
我想通过我的 ViewModel 控制我的一个窗口的高度和宽度。 这看起来很简单。 但没有。它不起作用。 它检查 ViewModel 的 Width但不是 Height . 奇怪的是,如果我切换 W
UI5中一次性绑定(bind)和单向绑定(bind)有什么区别? 是否有任何用户特定的用例我会使用它们? 我无法从文档中获得太多信息。 最佳答案 单程 它的作用:单向数据流。模型数据的变化(例如通过
(define make (lambda (x) (lambda (y) (cons x (list y))))) (let ((x 7) (p (make 4))) (cons
尽管我或多或少地了解什么是语言绑定(bind),但我很难理解它们是如何工作的。 例如,谁能解释一下如何为 WinAPI 制作 Java 绑定(bind)? 最佳答案 如果您搜索 Foreign Fun
谁能解释为什么我可以重新绑定(bind)列表但不能+? (binding [list vector] (list 1 3)) (binding [list +] (list 1 3)) (bi
我真的很喜欢 Caliburn 和命名约定绑定(bind),我很惊讶 可见性与“CanNAME”约定用于保护 Action 的方式不同。 据我所知, BooleanToVisibilityConver
我了解动态绑定(bind)的实现方式以及静态绑定(bind)和动态绑定(bind)之间的区别,但我只是无法理解动态绑定(bind)的定义。基本上它是一种运行时绑定(bind)类型。 最佳答案 基本上,
http://jsfiddle.net/3NRsd/ var foo = $("div").bind("click", function() { $("div").animate({"hei
这个问题我快疯了...我有一个用户控件,它有一个用于插入操作的 FormView 和一个用于所有其他操作的 GridView。 在这两个控件中,我都有一个 DropDownList,如下所示: '
我有一个绑定(bind)到 ListBox 的地址的 ObservableCollection。然后在 ItemTemplate 中,我使用 {Binding .} 绑定(bind)到当前地址记录。这
如果我有以下简单的 js/knockout 代码: .js( View 模型): var image = ko.observable('http://placehold.it/300x150'); 看
我正在 aurelia 上开发一个自定义属性,让用户在输入文本区域时从列表中进行选择。例如,用法将是这样的: 正如您可能注意到的,auto-complete是属性。现在,当我想显示提示时,我想在自定
我正在使用 EventEmitter2作为我的应用程序内部的消息总线。现在我需要绑定(bind)和取消绑定(bind)一些事件处理程序。因为我也希望他们bind将它们添加到给定的上下文中,我最终得到以
我有以下函数调用: $(".selector").on("click", callback.bind(this, param1, param2)); 在我的回调函数中,我想使用绑定(bind)的 th
我目前正在试验新的编译绑定(bind),并且(再次)达到了我在拼图中遗漏了一个小问题:为什么我必须调用 Bindings.Update?直到现在,我还认为实现 INotifyPropertyChang
我正在阅读一本关于编写 JavaScript 框架的书,并找到了这段代码。但是我不明白它是如何工作的,尤其是 bind.bind 的用法?有人知道吗? var bind = Function.prot
我是一名优秀的程序员,十分优秀!