Find the missing permutation: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 44: | Line 44: | ||
=={{header|360 Assembly}}== |
=={{header|360 Assembly}}== |
||
{{trans|BBC BASIC}} |
{{trans|BBC BASIC}} |
||
Very compact version, thanks to the clever |
Very compact version, thanks to the clever [[#Perl 6|Perl 6]] "xor" algorithm. |
||
<lang 360asm> |
<lang 360asm>* Find the missing permutation - 19/10/2015 |
||
* Find the missing permutation - 19/10/2015 |
|||
PERMMISX CSECT |
PERMMISX CSECT |
||
USING PERMMISX,R15 set base register |
USING PERMMISX,R15 set base register |
||
Line 73: | Line 72: | ||
DC C'BADC',C'BDAC',C'CBDA',C'DBCA',C'DCAB' |
DC C'BADC',C'BDAC',C'CBDA',C'DBCA',C'DCAB' |
||
MISS DC 4XL1'00',C' is missing' buffer |
MISS DC 4XL1'00',C' is missing' buffer |
||
YREGS |
YREGS</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
⚫ | |||
<pre> |
|||
⚫ | |||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |