Anonymous user
De Bruijn sequences: Difference between revisions
m
→{{header|REXX}}: simplified the program, changed some comments.
m (simplified the making the sequence invalid (part of the last task requirement).) |
m (→{{header|REXX}}: simplified the program, changed some comments.) |
||
Line 113:
say right($, 130) /*display 130 right-most digits of seq.*/
say /*display a blank line. */
call val $ /*call the
@deB= 'reversed' @deB /*next, we'll check on a reversed seq.*/
$$= reverse($) /*do what a mirror does, reversify it.*/
call val $$ /*call the
@deB= 'overlaid' subword(@deB, 2) /* [↑] this'll cause a validation barf.*/
call val $ /*call the
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
| |||