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!===
Unsupported use of <>; in Perl 6 please use lines() or () at line 1, near "<>;push@f,"

stdout

copy

Standard output is empty

https://ideone.com/EM9xT

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!