Skip to main content
-5 bytes
Source Link
smls
  • 4.5k
  • 15
  • 19

Perl 6, 6767 62 bytes (6964 - 2)

say (1,1,*+*...*)[1];$*PROGRAM.&{.spurt: .slurp.&{S/\[<(\d+/{$/+1}/}}
say (1,1,*+*...*)[1];$*PROGRAM0+1;$*PROGRAM.&{.spurt: .slurp.&{S/\[<(\d+).(\d+)/$1+{$/+1$0+$1}/}}

Perl 6, 67 bytes (69 - 2)

say (1,1,*+*...*)[1];$*PROGRAM.&{.spurt: .slurp.&{S/\[<(\d+/{$/+1}/}}

Perl 6, 67 62 bytes (64 - 2)

say (1,1,*+*...*)[1];$*PROGRAM.&{.spurt: .slurp.&{S/\[<(\d+/{$/+1}/}}
say 0+1;$*PROGRAM.&{.spurt: .slurp.&{S/(\d+).(\d+)/$1+{$0+$1}/}}
Source Link
smls
  • 4.5k
  • 15
  • 19

Perl 6, 67 bytes (69 - 2)

say (1,1,*+*...*)[1];$*PROGRAM.&{.spurt: .slurp.&{S/\[<(\d+/{$/+1}/}}