Ideone.com

fork download

copy

$t=();push@f,1,1;for(2..46){push@f,$f[$_-1]+$f[$_-2]}while($t--){$n=();say$f[$n+5]*11+$f[$n+5]%10}

Compilation error #stdin compilation error #stdout 0s 0KB

stdin

copy

2
1
35

compilation info

===SORRY!===
Confused at line 1, near "push@f,1,1"

stdout

copy

Standard output is empty

https://ideone.com/EwSCy

language:

Perl (perl 2018.12)

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!