Find square difference: Difference between revisions
Added Forth entry
(→OCaml: add) |
(Added Forth entry) |
||
Line 298:
!!F(1000);</syntaxhighlight>
{{out}}<pre>501</pre>
=={{header|Forth}}==
{{works with|gforth|0.7.3}}
{{trans|Quackery}}
<syntaxhighlight lang="Forth">: square dup * ;
: square-diff
0 begin 1+
dup square over 1- square -
1000 > until . ;
square-diff</syntaxhighlight>
{{out}}<pre>501 ok</pre>
=={{header|FreeBASIC}}==
| |||