TimToady

sub digits($n) {
    my int $i = $n;
    my int $b = 1000;
    gather while $i { take $i % $b; $i = $i div $b }
}

constant narcissistic = map -> $d {
    my @t = 0..9 X** $d;
    my @table = @t X+ @t X+ @t;
    sub is-narcissistic(\n) { n == [+] @table[digits(n)] }

TimToady

my $cache := nqp::list_i();
nqp::bindpos_i($cache, 650, 0);
nqp::bindpos_i($cache, 1, 1);
nqp::bindpos_i($cache, 89, 89);

sub Euler92(int $n) {
    $n < 650
	?? nqp::bindpos_i($cache,$n,ids($n))
	!! ids($n)
}

TimToady

0	0	$*POD_BLOCKS
0	0	$*EXPORT
0	0	@*WORRIES
0	0	$*WAS_SKIPPED
2	0.667	$*POD_PAST
2	2	@*NQP_VIOLATIONS
8	2	$*UNIT_OUTER
14	2	$*purpose
16	16	@*MODULES
20	2	$*CONSTRAINT_USAGE

TimToady

99-Bottles-of-Beer/99-bottles-of-beer-3.pl6
9-billion-names-of-God-the-integer/9-billion-names-of-god-the-integer.pl6
ABC-Problem/abc-problem.pl6
Add-a-variable-to-a-class-instance-at-runtime/add-a-variable-to-a-class-instance-at-runtime-3.pl6
Arithmetic-Integer/arithmetic-integer.pl6
Balanced-brackets/balanced-brackets-1.pl6
Balanced-brackets/balanced-brackets-4.pl6
Bitwise-operations/bitwise-operations-1.pl6
Bitwise-operations/bitwise-operations.pl6
Bulls-and-cows-Player/bulls-and-cows-player.pl6

TimToady

proto sub infix:<foo>(|) is pure { * }
multi sub infix:<foo>(**@args is raw) { @args.minmax }

proto sub infix:<bar>(|) is pure { * }
multi sub infix:<bar>(+args) { args.minmax }

proto sub infix:<baz>(|) is pure { * }
multi sub infix:<baz>(+args) { 42; args.minmax }

my @a = 1,2,3,4;

TimToady

$ mono run/Niecza.exe -e 'say 1'
Unhandled exception: Unable to resolve method keys in class Array
  at /home/larry/perl6/niecza/lib/SAFE.setting line 922 (SAFE keys @ 2)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 192 (Metamodel Namespace.list_stash @ 7)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 603 (Metamodel Unit.list_stash @ 3)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 683 (Metamodel C268_ANON @ 23)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 92 (Metamodel visitor @ 3)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 95 (Metamodel visitor @ 11)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 99 (Metamodel Namespace.visit_stashes @ 4)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 690 (Metamodel Unit.create_syml @ 13)

TimToady

mono run/Niecza.exe -e 'say 1'
Unhandled exception: Unable to resolve method keys in class Array
  at /home/larry/perl6/niecza/boot/lib/SAFE.setting line 922 (SAFE keys @ 2)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 192 (Metamodel Namespace.list_stash @ 7)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 603 (Metamodel Unit.list_stash @ 3)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 683 (Metamodel C268_ANON @ 23)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 92 (Metamodel visitor @ 3)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 95 (Metamodel visitor @ 11)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 99 (Metamodel Namespace.visit_stashes @ 4)
  at /home/larry/perl6/niecza/src/Metamodel.pm6 line 690 (Metamodel Unit.create_syml @ 13)

TimToady

4b253e61e4a0ec231c50eecb3.
edo:~/perl6/niecza 10> make
rm -rf boot/
mkdir boot
wget --no-check-certificate -Oboot/niecza.zip $(cat FETCH_URL)
--2011-01-21 08:25:43--  https://github.com/downloads/sorear/niecza/niecza-1.51.zip
Resolving github.com... 207.97.227.239
Connecting to github.com|207.97.227.239|:443... connected.
WARNING: certificate common name `*.github.com' doesn't match requested host name `github.com'.
HTTP request sent, awaiting response... 302 Found

TimToady

perl -MExtUtils::Command -e rm_rf boot/syml
perl ./viv --boot --noperl6lib --compile-setting CORE.setting
perl ./viv --boot --noperl6lib -5 -o STD.pm5 STD.pm6
Compiled lib/DEBUG.pm6
Compiled lib/NAME.pm6
Compiled lib/Stash.pm6
Compiled ./CursorBase.pm6
Compiled ./Cursor.pm6
Can't locate package VAST::Assignment_operator for @VAST::infix__S_VertVert::ISA at /home/larry/perl6/std/Actions.pm line 345.
Can't locate package VAST::Assignment_operator for @VAST::infix__S_VertVert::ISA at /home/larry/perl6/std/Actions.pm line 345.

TimToady

my $pairs = 5;
my $size = $pairs + 1;

my @x;
@x[0] = 1 xx $size;

for 1 ..^ $size -> $row {
    for reverse 0 .. ($size - $row - 1) -> $col {
	@x[$row][$col] = (@x[$row][$col+1]//0) + @x[$row-1][$col];
    }