patrickas

my $c;
{
  my $a = 42;
  $c = { say $a };
}

$c()

#############################################
This is SIC v2010.11

patrickas

use v6;

my $SIZE = 9;
my $FOUND_NEW_STUFF = True;

multi sub eigenstates (Int $quantum_state) { $quantum_state }
multi sub eigenstates (Junction $quantum_state) { #return $quantum_state.eigenstates() ; #I wish
	my @possibilities ;
	for (1..$SIZE) { #Our universe is 1..9 :-)
		@possibilities.push($_) if $_ ~~ $quantum_state;