Test integerness: Difference between revisions
→{{header|Quackery}}: added test cases.
(Added Quackery.) |
(→{{header|Quackery}}: added test cases.) |
||
Line 1,978:
<lang Quackery> [ mod not ] is v-is-num ( n/d --> b )</lang>
{{out}}
Testing in the Quackery shell.
<pre>/O> [ $ "bigrat.qky" loadfile ] now!
... [ mod not ] is v-is-num ( n/d --> b )
... $ "25.000000" $->v drop v-is-num iff [ say "true" ] else [ say "false" ] cr
... $ "24.999999" $->v drop v-is-num iff [ say "true" ] else [ say "false" ] cr
... $ "25.000100" $->v drop v-is-num iff [ say "true" ] else [ say "false" ] cr
...
true
false
false</pre>
=={{header|Racket}}==
| |||