Aleks-Daniel Jakimenko-Aleksejev AlexDaniel

## ootut2.pm6
our %world = {} ;

role Identifier {
        has $.id is rw ;
}

role Container {
        has @.contents is rw ;
        method add($item) {
                @!contents.push($item) ;

## query
≠|≤|≥

## query
.say for ^888

## role-import.p6
# MAIN
require ($*PROGRAM.parent.absolute ~ "/to_require.pm")  <required_role> ;
my $c = 1 does required_role ;

## gist:092458de72b918a2873c4429b427500a
use v6;
my int $max = 2_000_000 × 4;

# find all primes up to $max using The Sieve of Erathostenes
my int @a = (0..$max);

for (2..($max div 2)) -> int $i {
  my int $j = 2;
  @a[$i * $j++] = 1 while $i * $j <= $max;
}

## Foo.pm6
use FooBar;

module Foo {
  sub foo is export { "foo" ~ bar() }
}

sub EXPORT {
  FooBar::EXPORT::DEFAULT::
}

## foo.p6
#use Slang::Tuxic;
#use Text::CSV;
#use File::Find;

my $csv_line = ‘foo’; # Text::CSV.new (eol => "\n");
my $cols = 49;

my @IO-object-list = < a b c >; #find(:dir</home/user1/documents/animals>, :type<file>, :name(/armadillos_201<[4..8]>.*\.csv/));

for @IO-object-list -> $IO-object {

## gist:227c34f20d638d0b339947c744d05bc8
use v6;

my Int @cache is default(0);
my $sum89 = 0;

for (1..567) -> $i {
  @cache[$i] = calc-chain($i);
}

for (1..400_000) -> $i {

## query
if[^{]+=(?!=)[^{]+\{

## query
\<\-\>
	our %world = {} ;

	role Identifier {
	has $.id is rw ;
	}

	role Container {
	has @.contents is rw ;
	method add($item) {
	@!contents.push($item) ;
	# MAIN
	require ($*PROGRAM.parent.absolute ~ "/to_require.pm") <required_role> ;
	my $c = 1 does required_role ;
	use v6;
	my int $max = 2_000_000 × 4;

	# find all primes up to $max using The Sieve of Erathostenes
	my int @a = (0..$max);

	for (2..($max div 2)) -> int $i {
	my int $j = 2;
	@a[$i * $j++] = 1 while $i * $j <= $max;
	}
	use FooBar;

	module Foo {
	sub foo is export { "foo" ~ bar() }
	}

	sub EXPORT {
	FooBar::EXPORT::DEFAULT::
	}
	#use Slang::Tuxic;
	#use Text::CSV;
	#use File::Find;

	my $csv_line = ‘foo’; # Text::CSV.new (eol => "\n");
	my $cols = 49;

	my @IO-object-list = < a b c >; #find(:dir</home/user1/documents/animals>, :type<file>, :name(/armadillos_201<[4..8]>.*\.csv/));

	for @IO-object-list -> $IO-object {
	use v6;

	my Int @cache is default(0);
	my $sum89 = 0;

	for (1..567) -> $i {
	@cache[$i] = calc-chain($i);
	}

	for (1..400_000) -> $i {