Look-and-say sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Miranda) |
Not a robot (talk | contribs) (Add MACRO-11) |
||
Line 2,952: | Line 2,952: | ||
v</syntaxhighlight> |
v</syntaxhighlight> |
||
=={{header|MACRO-11}}== |
|||
<syntaxhighlight lang="macro11"> .TITLE LOKSAY |
|||
.MCALL .TTYOUT,.EXIT |
|||
LOKSAY::MOV #START,R0 |
|||
MOV #BUFR1,R1 |
|||
JSR PC,COPY |
|||
MOV #^D14,R5 |
|||
$1: MOV #BUFR1,R1 |
|||
JSR PC,PRINT |
|||
MOV #NEWLIN,R1 |
|||
JSR PC,PRINT |
|||
JSR PC,STEP |
|||
SOB R5,$1 |
|||
.EXIT |
|||
STEP: MOV #BUFR1,R0 |
|||
MOV #BUFR2,R1 |
|||
BR 2$ |
|||
1$: INC R3 |
|||
CMPB (R0)+,R4 |
|||
BEQ 1$ |
|||
ADD #60,R3 |
|||
MOVB R3,(R1)+ |
|||
MOVB R4,(R1)+ |
|||
DEC R0 |
|||
2$: CLR R3 |
|||
MOVB (R0)+,R4 |
|||
BNE 1$ |
|||
MOV #BUFR2,R0 |
|||
MOV #BUFR1,R1 |
|||
COPY: MOVB (R0)+,(R1)+ |
|||
BNE COPY |
|||
RTS PC |
|||
PRINT: MOVB (R1)+,R0 |
|||
.TTYOUT |
|||
BNE PRINT |
|||
RTS PC |
|||
NEWLIN: .BYTE 15,12,0,0 |
|||
START: .ASCIZ /1/ |
|||
BUFR1: .BLKB 400 |
|||
BUFR2: .BLKB 400 |
|||
.END LOKSAY</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1 |
|||
11 |
|||
21 |
|||
1211 |
|||
111221 |
|||
312211 |
|||
13112221 |
|||
1113213211 |
|||
31131211131221 |
|||
13211311123113112211 |
|||
11131221133112132113212221 |
|||
3113112221232112111312211312113211 |
|||
1321132132111213122112311311222113111221131221 |
|||
11131221131211131231121113112221121321132132211331222113112211</pre> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |
||
<syntaxhighlight lang="maple">generate_seq := proc(s) |
<syntaxhighlight lang="maple">generate_seq := proc(s) |
||
Line 2,994: | Line 3,050: | ||
"13211311123113112211" |
"13211311123113112211" |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |