Initial data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions

View file

@ -0,0 +1,18 @@
/* Get version information */
build_info();
/* build_info("5.27.0", "2012-05-08 11:27:57", "i686-pc-mingw32", "GNU Common Lisp (GCL)", "GCL 2.6.8") */
%@lisp_version;
/* "GCL 2.6.8" */
/* One can only check for user-defined objects: functions, variables, macros, ...
Hence we won't check for 'abs, which is built-in, but for 'weekday, defined elsewhere on RosettaCode.
Here year, month and day are 2012, 05, 29. */
if subsetp({'year, 'month, 'day}, setify(values))
and member('weekday, map(op, functions))
then weekday(year, month, day)
else 'bad\ luck;
/* Sum of integer variables */
lreduce("+", sublist(map(ev, values), integerp));