aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Even-or-odd/Common-Lisp/even-or-odd-2.lisp
View file

@ -1,7 +1,4 @@
;; Project : Even or odd
;; Date : 2018/03/05
;; Author : Gal Zsolt [~ CalmoSoft ~]
;; Email : <calmosoft@gmail.com>
(defun evenodd (nr)
(cond ((evenp nr) "even")

8
Task/Even-or-odd/K/even-or-odd.k Normal file
View file

@ -0,0 +1,8 @@
oddp: {:[x!2;1;0]} /Returns 1 if arg. is odd
evenp: {~oddp[x]} /Returns 1 if arg. is even
Examples:
oddp 32
0
evenp 32
1