Ideone.com

fork download

copy

#!/usr/bin/perl
use 5.10.0;
@a=1;@b=0;for(1..<>-1){push@a,($_-$b[$a[$_-1]]);push@b,($_-$a[$b[$_-1]]);}say"@a\n@b"

Success #stdin #stdout 0s 6000KB

stdin

copy

stdout

copy

1 1 2 2 3 3 4 5 5 6
0 0 1 2 2 3 4 4 5 6

https://ideone.com/pUSp9e

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!