Find the missing permutation: Difference between revisions

Content added Content deleted
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 Perl6 "xor" algorithm.
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>DBAC is missing</pre>
<pre>
DBAC is missing
</pre>



=={{header|Ada}}==
=={{header|Ada}}==