Difference between revisions of "SubL/examples.constantp"
From Public Domain Knowledge Bank
DavidWhitten (talk | contribs) |
DavidWhitten (talk | contribs) (→constantp) |
||
| Line 3: | Line 3: | ||
</noinclude> | </noinclude> | ||
=== constantp === | === constantp === | ||
| + | returns T if arg1 is a constant | ||
| + | returns NIL if arg1 is not a constant | ||
| + | ?ignores arg2 ? | ||
| + | ERROR if arg0 or arg3 or more | ||
==== constantp w/ 0 arg ==== | ==== constantp w/ 0 arg ==== | ||
CYC(56): (constantp) | CYC(56): (constantp) | ||
Revision as of 02:42, 8 March 2019
Contents
SubL/examples.1
constantp
returns T if arg1 is a constant returns NIL if arg1 is not a constant ?ignores arg2 ? ERROR if arg0 or arg3 or more
constantp w/ 0 arg
CYC(56): (constantp)
Error: Cannot make an arity 0 function from #<Function CONSTANTP> {req=1 ...}
constantp w/ >2 arg
CYC(#): (constantp #$Lenat #$Lenat #$Lenat)
Error: Cannot make an arity 3 function from #<Function CONSTANTP> {req=1 opt=1 allowsrest=false}
constantp w/ 1 arg
(constantp "a")
CYC(54): (constantp "a") [Time: 0.0 secs] T
(constantp #$Lenat)
CYC(#): (constantp #$Lenat) [Time: 0.002 secs] T
(constantp 'a)
CYC(#): (constantp 'a) [Time: 0.0 secs] NIL
constantp w/ 2 arg
(constantp #$Lenat "a")
CYC(#): (constantp #$Lenat "a") [Time: 0.001 secs] T
