Look-and-say sequence: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add Refal |
|||
Line 1,875: | Line 1,875: | ||
<syntaxhighlight> |
<syntaxhighlight> |
||
proc lookandsay . a$ . |
proc lookandsay . a$ . |
||
s$ = "" |
|||
c = 1 |
c = 1 |
||
p$ = substr a$ 1 1 |
p$ = substr a$ 1 1 |
||
Line 1,897: | Line 1,896: | ||
. |
. |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |