Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
18
Task/Introspection/Maxima/introspection.maxima
Normal file
18
Task/Introspection/Maxima/introspection.maxima
Normal 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));
|
||||
Loading…
Add table
Add a link
Reference in a new issue