|
From: | Emanuel Berg |
Subject: | Re: member returns list |
Date: | Fri, 04 Sep 2015 02:26:13 +0200 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
"Pascal J. Bourguignon" <pjb@informatimago.com> writes: > (defun rps-wins-over (a b) (eql b (second (member > a '(paper rock scissors paper))))) > > (rps-wins-over 'scissors 'paper) --> > t (rps-wins-over 'paper 'scissors) --> nil Good example! -- underground experts united http://user.it.uu.se/~embe8573
[Prev in Thread] | Current Thread | [Next in Thread] |