colomon

#!~/tools/rakudo/perl6
my $search_word = @*ARGS.shift;
my $replacement = @*ARGS.shift;

sub UpperCaseEachWord($word)
{
    my @words = $word.split('_');
    my @uppered = map {$_.lc.ucfirst}, @words;
    return @uppered.join('');
}

colomon

use v6;

my $in = open "01.pl", :r or die "Unable to open 01.pl: $!\n";
my $out = open "02.pl", :w or die "Unable to open 02.pl: $!\n";

for $in.lines
{
    when /\#/ { $out.say: $_; }
    when /(.*)\"(.*)\"(.*)/ 
    {

colomon

use v6;

my $in = open "01.pl", :r or die "Unable to open 01.pl: $!\n";
my $out = open "02.pl", :w or die "Unable to open 02.pl: $!\n";

for $in.lines
{
    when /\#/ { $out.say: $_; }
    when /(.*)\"(.*)\"(.*)/ 
    {

colomon

use v6;

my %dictionary;
slurp("big.txt").comb(/<alpha>+/).map({%dictionary{$_.lc}++});

my @alphabet = 'a'..'z';

sub edits($word) {
    my @s = (^$word.chars).map({$word.substr(0, $_), $word.substr($_)});
    my @deletes = @s.map(-> $a, $b { $a ~ $b.substr(1); });

colomon

use STD;
use Syntax::Highlight::Perl6;

my @input = <>; 
my $input = join "", @input;

# Creates the Perl6 syntax highlighter object
my $p = Syntax::Highlight::Perl6->new(
    text => $input
);

colomon

rat.t needs:

Num.Rat -- think this is blocked on list assignment
Rat.new -- with no arguments used to work, now doesn't
eval -- this is simply not implemented in ng yet
sin -- Just don't think we have trig yet
exp -- not sure if this one works or not yet
<a b c>.[4/3] -- not sure why this doesn't work, parsing maybe?

colomon

# .get example

class MapIterator does Iterator {
    has $.base-iterator;
    has $.code;
   
    multi method get() {
        my $value = $.base-iterator.get;
        $value ~~ Good ?? $.code($value) !! $value;
    }

colomon

> say 1, 2 X~ 'a', 'b';
Null PMC access in clone()
> Wynne:rakudo colomon$ 
Wynne:rakudo colomon$ ./perl6 --target=pir
> say 1, 2 X~ 'a', 'b';

.HLL "perl6"

.namespace []
.sub "_block11"  :anon :subid("10_1268960012.49592")

colomon

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 00c3f07..234677f 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -938,7 +938,7 @@ token numish {
     [
     | <dec_number>
     | <integer>
-#    | <rad_number>
+    | <rad_number>

colomon

multi sub is(Iterable $got, Iterable $expected, $desc) is export {
    my @got;
    my @expected;
    my $test = True;
    loop {
        my $a = $got.get;
        my $b = $expected.get;
        if ($a ~~ EMPTY) || ($b ~~ EMPTY) {
            unless ($a ~~ EMPTY) && ($b ~~ EMPTY) {
                $test = False;