732 lines
117 KiB
HTML
732 lines
117 KiB
HTML
<!DOCTYPE html>
|
|
<html><head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
|
|
<title>highlight.raku</title>
|
|
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (Raku) - Theme (Breeze Light)"/>
|
|
</head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
|
|
<span style="font-weight:bold">#!/usr/bin/perl6</span>
|
|
|
|
<span style="font-weight:bold">use</span> v6;
|
|
|
|
<span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Hello</span><span style="color:#924c9d">"</span>;
|
|
}
|
|
|
|
<span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Hello</span><span style="color:#924c9d">"</span>; <span style="color:#898887"># Bad indentation intended</span>
|
|
}
|
|
|
|
<span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Hello</span><span style="color:#924c9d">"</span> }
|
|
|
|
<span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> {<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Hello</span><span style="color:#924c9d">"</span>}
|
|
|
|
<span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Hello</span><span style="color:#924c9d">"</span> } <span style="font-weight:bold">else</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Goodbye</span><span style="color:#924c9d">"</span> }; <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">world</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#898887">## </span><span style="color:#0057ae;background-color:#e0e9f8">BEGIN</span><span style="color:#898887"> Comments</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> <span style="color:#898887">#`( blah </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> blah</span>
|
|
<span style="color:#898887">here? )</span> <span style="color:#b08000">2</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> <span style="color:#898887">#`{{ blah </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> blah</span>
|
|
<span style="color:#898887">here? }}</span> <span style="color:#b08000">2</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> <span style="color:#898887">#`[[ blah </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> blah ]</span>
|
|
<span style="color:#898887">here? ]]</span> <span style="color:#b08000">2</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> <span style="color:#898887">#`««« blah </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> blah</span>
|
|
<span style="color:#898887">here? »»»</span> <span style="color:#b08000">2</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> <span style="color:#898887">#` ( blah </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> blah</span>
|
|
<span style="color:#b08000">2</span> ;
|
|
|
|
<span style="color:#898887">#`[</span>
|
|
<span style="color:#898887"> This is another multi-line comment. ]</span>
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@sorted</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">@names</span><span style="color:#ca60ca">.</span>sort({ <span style="color:#0057ae">%sets</span>{<span style="color:#0057ae">$_</span>} })<span style="color:#ca60ca">.</span>sort({ <span style="color:#0057ae">%matches</span>{<span style="color:#0057ae">$_</span>} })<span style="color:#ca60ca">.</span>reverse;
|
|
<span style="color:#898887">#`{ So is this, though it's not actually multi-line. }</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">code again</span><span style="color:#924c9d">'</span>;
|
|
|
|
<span style="color:#898887">#`( Multiple line comments `( sub-comment )`)</span>`
|
|
|
|
<span style="color:#898887">## </span><span style="color:#0057ae;background-color:#e0e9f8">END</span><span style="color:#898887"> Comments</span>
|
|
|
|
<span style="color:#898887">#`[</span>
|
|
<span style="color:#898887">And this is how a multi would work.</span>
|
|
<span style="color:#898887">That says why we do what we do below.</span>
|
|
<span style="color:#898887">]</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">No more</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#898887">#`{{a}a}}</span> <span style="color:#644a9b">say</span> ok
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">No more</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">this is code</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">pod</span>
|
|
|
|
<span style="color:#607880">A very simple Pod6 document</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">pod</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">head1</span>
|
|
<span style="color:#607880">Top Level Heading</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">head1</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> Top level heading</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">head1</span>
|
|
<span style="color:#0095ff">Top Level Heading</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#bf0303;text-decoration:underline">cutsdads</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">pod</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> This is a head1 title</span>
|
|
|
|
<span style="color:#607880">This is a paragraph.</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head2</span><span style="color:#0095ff"> Subsection</span>
|
|
<span style="color:#0095ff"># plop</span>
|
|
<span style="color:#0095ff">Here some text for the subsection.</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">pod</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">caption</span><span style="color:#ca60ca"><</span><span style="color:#0095ff">My Tasks</span><span style="color:#ca60ca">></span>
|
|
<span style="color:#607880">mow lawn</span>
|
|
<span style="color:#607880">take out trash</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">table</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> This is a heading block</span>
|
|
<span style="color:#0095ff">This is an ordinary paragraph.</span>
|
|
<span style="color:#0095ff">Its text will be squeezed and</span>
|
|
<span style="color:#0095ff">short lines filled. It is terminated by</span>
|
|
<span style="color:#0095ff">the first blank line.</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head2</span><span style="color:#0095ff"> This is another heading block</span>
|
|
<span style="color:#0095ff">This is yet another ordinary paragraph,</span>
|
|
<span style="color:#0095ff">at the first virtual column set by the</span>
|
|
<span style="color:#0095ff">previous directive</span>
|
|
|
|
<span style="color:#898887">#</span><span style="color:#ca60ca">|</span><span style="color:#898887"> Base class for magicians</span>
|
|
<span style="font-weight:bold">class</span> <span style="color:#0057ae">Magician</span> {
|
|
<span style="font-weight:bold">has</span> <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">.</span><span style="color:#0057ae">level</span>;
|
|
<span style="font-weight:bold">has</span> <span style="color:#0057ae">Str</span> <span style="color:#0057ae">@</span><span style="color:#0057ae">.</span><span style="color:#0057ae">spells</span>;
|
|
}
|
|
|
|
<span style="color:#898887">#</span><span style="color:#ca60ca">|</span><span style="color:#898887"> Fight mechanics</span>
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> duel(<span style="color:#0057ae">Magician</span> <span style="color:#0057ae">$a</span>, <span style="color:#0057ae">Magician</span> <span style="color:#0057ae">$b</span>) {
|
|
}
|
|
<span style="color:#898887">#</span><span style="color:#ca60ca">=</span><span style="color:#898887">«<((</span>
|
|
<span style="color:#898887"> <Magicians only, no mortals. ></span>
|
|
<span style="color:#898887"> Magicians only, no mortals.</span>
|
|
<span style="color:#898887">))>»</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">Magician</span><span style="color:#ca60ca">.</span><span style="color:#0057ae">WHY</span>;
|
|
|
|
<span style="color:#898887">#</span><span style="color:#ca60ca">|</span><span style="color:#898887"><< This is an example of stringification:</span>
|
|
<span style="color:#898887"> * Numbers turn into strings</span>
|
|
<span style="color:#898887"> > * Regexes operate on said strings</span>
|
|
<span style="color:#898887"> * C<with> topicalizes and places result into $_</span>
|
|
<span style="color:#898887">>></span>
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> search-in-seq( <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$end</span>, <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$number</span> ) {
|
|
<span style="font-weight:bold">with</span> (<span style="color:#ca60ca">^</span><span style="color:#0057ae">$end</span>)<span style="color:#ca60ca">.</span>grep( <span style="color:#e31616">/</span><span style="font-weight:bold">^</span><span style="color:#0057ae">$number</span><span style="color:#e31616">/</span> ) {
|
|
<span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> <span style="font-weight:bold">for</span> <span style="color:#0057ae">$_</span><span style="color:#924c9d"><></span>;
|
|
}
|
|
}
|
|
<span style="color:#898887">#</span><span style="color:#ca60ca">=</span><span style="color:#898887"> Uses * topic * decont operator</span>
|
|
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> plop</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> plop</span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">para</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> plop</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> plop</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span>;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> plop</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span>;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">head1</span>
|
|
<span style="color:#0095ff">plop</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">conf</span><span style="color:#ca60ca">[</span><span style="color:#0095ff">str</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#bf0303">'str</span><span style="color:#924c9d">'</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#bf0303">"str</span><span style="color:#924c9d">"</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#b08000">1</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#0057ae">True</span><span style="color:#ca60ca">]</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">conf</span><span style="color:#ca60ca">(</span><span style="color:#0095ff">str</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#bf0303">'str</span><span style="color:#924c9d">'</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#bf0303">"str</span><span style="color:#924c9d">"</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#b08000">1</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> </span><span style="color:#0057ae">True</span><span style="color:#ca60ca">)</span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">conf</span><span style="color:#ca60ca"><</span><span style="color:#0095ff">str </span><span style="color:#bf0303">'str</span><span style="color:#924c9d">'</span><span style="color:#0095ff"> </span><span style="color:#bf0303">"str</span><span style="color:#924c9d">"</span><span style="color:#0095ff"> </span><span style="color:#b08000">1</span><span style="color:#0095ff"> </span><span style="color:#0057ae">True</span><span style="color:#ca60ca">></span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">conf</span><span style="color:#ca60ca">{</span><span style="color:#0095ff">k </span><span style="color:#ca60ca">=></span><span style="color:#0095ff"> str</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> k</span><span style="color:#ca60ca">=></span><span style="color:#bf0303">'str</span><span style="color:#924c9d">'</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> k</span><span style="color:#ca60ca">=></span><span style="color:#bf0303">"str</span><span style="color:#924c9d">"</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> k</span><span style="color:#ca60ca">=></span><span style="color:#b08000">1</span><span style="color:#ca60ca">,</span><span style="color:#0095ff"> k</span><span style="color:#ca60ca">=></span><span style="color:#0057ae">True</span><span style="color:#ca60ca">}</span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">for</span> <span style="color:#ca60ca">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">a</span> <span style="color:#ca60ca">:!</span><span style="color:#0057ae">b</span> <span style="color:#ca60ca">:</span><span style="color:#b08000">42</span><span style="color:#0057ae">k</span> <span style="color:#ca60ca">:</span><span style="color:#bf0303;text-decoration:underline">+s</span>
|
|
<span style="color:#0095ff">abc</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">2</span>;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">a</span>
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">a</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">b</span> <span style="color:#bf0303;text-decoration:underline">sa</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">b</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">2</span>;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">a</span>
|
|
<span style="color:#607880">abc</span>
|
|
|
|
<span style="color:#607880">abc</span>
|
|
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">a</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">0</span> ;
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">a</span><span style="color:#ca60ca">:</span><span style="color:#0057ae">config</span><span style="color:#ca60ca">{</span><span style="color:#b08000">42</span><span style="color:#ca60ca">}</span>
|
|
<span style="color:#607880">abc</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> The</span>
|
|
<span style="color:#0095ff">Title</span>
|
|
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span><span style="color:#bf0303;text-decoration:underline"> ab</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1</span> ;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">b</span> <span style="color:#bf0303;text-decoration:underline">sa</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">b</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">a</span>
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">b</span>
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">b</span><span style="color:#bf0303;text-decoration:underline"> a</span>
|
|
<span style="color:#607880">abc</span>
|
|
|
|
<span style="color:#607880">abc</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">a</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">3</span> ;
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">item</span><span style="color:#0095ff"> a</span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">item</span><span style="color:#0095ff"> b</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">code</span>
|
|
<span style="color:#b08000"> =item a</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">code</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">code</span>
|
|
<span style="color:#b08000"> =item a</span>
|
|
<span style="color:#b08000"> b</span>
|
|
<span style="color:#b08000">=end code d</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">code</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">comment</span>
|
|
<span style="color:#898887">Here are several</span>
|
|
<span style="color:#898887">lines</span>
|
|
<span style="color:#898887">of comment</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">comment</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">pod</span>
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">head1</span><span style="color:#0095ff"> ac</span><span style="color:#607880;font-weight:bold">B<<</span><span style="color:#607880;font-style:italic">I<a></span><span style="color:#607880;font-weight:bold">>></span><span style="color:#0095ff">a </span><span style="color:#607880;font-weight:bold">B<c></span><span style="color:#0095ff"> </span><span style="color:#607880;text-decoration:underline">U<d></span><span style="color:#0095ff"> B</span><span style="color:#607880;font-weight:bold">B<a></span>
|
|
|
|
<span style="color:#b08000">C<my $var = 1; say $var;></span>
|
|
<span style="color:#607880">Perl 6 homepage </span><span style="color:#006e28;text-decoration:underline">L<https://perl6.org></span><span style="color:#607880"> </span><span style="color:#006e28;text-decoration:underline">L<Perl 6 homepage</span><span style="color:#ca60ca">|</span><span style="color:#006e28;text-decoration:underline">https://perl6.org></span>
|
|
<span style="color:#607880">Comments </span><span style="color:#006e28;text-decoration:underline">L<#Comments></span><span style="color:#607880"> </span><span style="color:#006e28;text-decoration:underline">L<Comments</span><span style="color:#ca60ca">|</span><span style="color:#006e28;text-decoration:underline">#Comments></span>
|
|
<span style="color:#607880">Perl 6 is awesome </span><span style="color:#898887">Z<Of course it is!></span>
|
|
<span style="color:#607880">Perl 6 is multi-paradigmatic </span><span style="color:#b08000">N<Supporting Procedural, Object Oriented, and Functional programming></span>
|
|
<span style="color:#607880">Enter your name </span><span style="color:#b08000">K<John Doe></span><span style="color:#607880"> </span><span style="color:#924c9d">E<0xBB></span><span style="color:#607880"> characters.</span>
|
|
|
|
<span style="color:#607880">A </span><span style="color:#006e28">X<</span><span style="color:#006e28;text-decoration:underline">hash</span><span style="color:#ca60ca">|</span><span style="color:#006e28;text-decoration:underline">hashes</span><span style="color:#ca60ca">,</span><span style="color:#006e28;text-decoration:underline"> definition of</span><span style="color:#ca60ca">;</span><span style="color:#006e28;text-decoration:underline"> associative arrays</span><span style="color:#006e28">></span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#ca60ca">DISCLAIMER</span>
|
|
<span style="color:#006e28;text-decoration:underline">P<http://www.MegaGigaTeraPetaCorp.com/std/disclaimer.txt></span>
|
|
|
|
<span style="color:#607880">A </span><span style="color:#006e28">X<</span><span style="color:#006e28;text-decoration:underline">hash</span><span style="color:#ca60ca">|</span><span style="color:#006e28;text-decoration:underline">hashes</span><span style="color:#ca60ca">,</span><span style="color:#006e28;text-decoration:underline"> definition of</span><span style="color:#ca60ca">;</span><span style="color:#006e28;text-decoration:underline"> associative arrays</span><span style="color:#006e28">></span>
|
|
<span style="color:#607880">is an unordered collection of scalar values indexed by their</span>
|
|
<span style="color:#607880">associated string key.</span>
|
|
|
|
<span style="color:#607880"> my @names = <Foo Bar Baz>;</span>
|
|
<span style="color:#607880"> my @upper-case-names = @names.map: { .uc } # OUTPUT: [FOO BAR BAZ]</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">pod</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">caption</span><span style="color:#ca60ca"><</span><span style="color:#0095ff">My Tasks</span><span style="color:#ca60ca">></span>
|
|
<span style="color:#607880">mow lawn</span>
|
|
<span style="color:#607880">take out trash</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">table</span>
|
|
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">begin</span> <span style="color:#0095ff">table</span> <span style="color:#ca60ca">:</span><span style="color:#0057ae">config</span><span style="color:#ca60ca">{</span><span style="color:#0095ff">caption </span><span style="color:#ca60ca">=></span><span style="color:#0095ff"> </span><span style="color:#bf0303">"My Tasks</span><span style="color:#924c9d">"</span><span style="color:#ca60ca">}</span>
|
|
<span style="color:#607880">mow lawn</span>
|
|
<span style="color:#607880">take out trash</span>
|
|
<span style="color:#607880">=</span><span style="color:#0057ae;background-color:#e0e9f8">end</span> <span style="color:#0095ff">table</span>
|
|
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#924c9d">\c999</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\c999999</span><span style="color:#bf0303;text-decoration:underline">9</span><span style="color:#bf0303">99 </span><span style="color:#924c9d">\c[LATIN CAPITAL LETTER A</span>,<span style="color:#924c9d"> LATIN CAPITAL LETTER B]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\c77</span><span style="color:#bf0303">s </span><span style="color:#924c9d">\c[77</span>,<span style="color:#924c9d">22]</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#924c9d">\x0</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x00</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x[0]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x[00]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x[f]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\xaaa</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\xfffff</span><span style="color:#bf0303;text-decoration:underline">f</span><span style="color:#bf0303">f </span><span style="color:#924c9d">\xff</span><span style="color:#bf0303">h </span><span style="color:#924c9d">\x[ffff]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x[fffff</span><span style="color:#bf0303;text-decoration:underline">ff</span><span style="color:#924c9d">]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\x[42</span>,<span style="color:#924c9d">42]</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#924c9d">\o0</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o00</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o[0]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o[00]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o[7]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o333</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o777777</span><span style="color:#bf0303;text-decoration:underline">7</span><span style="color:#bf0303">7 </span><span style="color:#924c9d">\o77</span><span style="color:#bf0303">h </span><span style="color:#924c9d">\o[333]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o[777777</span><span style="color:#bf0303;text-decoration:underline">77</span><span style="color:#924c9d">]</span><span style="color:#bf0303"> </span><span style="color:#924c9d">\o[42</span>,<span style="color:#924c9d">42]</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">A literal string</span><span style="color:#924c9d">]</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">｢</span><span style="color:#bf0303">More plainly.</span><span style="color:#924c9d">｣</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">^</span><span style="color:#bf0303">Almost any non-word character can be a delimiter!</span><span style="color:#924c9d">^</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">｢｢</span><span style="color:#bf0303">Delimiters can be repeated/nested if they are adjacent.</span><span style="color:#924c9d">｣｣</span> ;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">(</span><span style="color:#bf0303">this is fine, because of space after Q</span><span style="color:#924c9d">)</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">'</span><span style="color:#bf0303">and so is this</span><span style="color:#924c9d">'</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#924c9d"><</span><span style="color:#bf0303">Make sure you </span><span style="color:#924c9d"><</span><span style="color:#bf0303">match</span><span style="color:#924c9d">></span><span style="color:#bf0303"> opening and closing delimiters</span><span style="color:#924c9d">></span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#924c9d">{</span><span style="color:#bf0303">This is still a closing curly brace → \</span><span style="color:#924c9d">}</span> ;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#924c9d">;</span><span style="color:#bf0303">yes, this is fine</span><span style="color:#924c9d">;</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">Q</span>(<span style="color:#924c9d">'</span><span style="color:#bf0303">this is a function</span><span style="color:#924c9d">'</span>) ;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">Very plain</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">This back\slash stays</span><span style="color:#924c9d">]</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">This back</span><span style="color:#924c9d">\\</span><span style="color:#bf0303">slash stays</span><span style="color:#924c9d">]</span>; <span style="color:#898887"># Identical output</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">q</span><span style="color:#924c9d">{</span><span style="color:#bf0303">This is not a closing curly brace → </span><span style="color:#924c9d">\}</span><span style="color:#bf0303">, but this is → </span><span style="color:#924c9d">}</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#ca60ca">:q</span><span style="color:#bf0303"> </span><span style="color:#924c9d">$</span><span style="color:#bf0303">There are no backslashes here, only lots of </span><span style="color:#924c9d">\$\$\$</span><span style="color:#bf0303">>!</span><span style="color:#924c9d">$</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">(Just kidding. There</span><span style="color:#924c9d">\'</span><span style="color:#bf0303">s no money in that string)</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">No $interpolation {here}!</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#ca60ca">:q</span><span style="color:#924c9d">!</span><span style="color:#bf0303">Just a literal "\n" here</span><span style="color:#924c9d">!</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#ca60ca">:q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">a</span><span style="color:#924c9d">\[</span><span style="color:#924c9d">]</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">A literal string</span><span style="color:#924c9d">]</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">｢</span><span style="color:#bf0303">More plainly.</span><span style="color:#924c9d">｣</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">^</span><span style="color:#bf0303">Almost any non-word character can be a delimiter!</span><span style="color:#924c9d">^</span> ;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q </span><span style="color:#924c9d">｢｢</span><span style="color:#bf0303">Delimiters can be repeated/nested if they are adjacent.</span><span style="color:#924c9d">｣｣</span> ;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">qq</span><span style="color:#924c9d">[</span><span style="color:#bf0303">My favorite color is </span><span style="color:#bf0303">{</span><span style="color:#0057ae">$n</span><span style="color:#ca60ca">+</span><span style="color:#b08000">2</span><span style="color:#bf0303">}</span><span style="color:#bf0303">!</span><span style="color:#924c9d">]</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">qq</span><span style="color:#924c9d">{</span><span style="color:#bf0303">My favorite color</span><span style="color:#924c9d">\-</span><span style="color:#bf0303"> is </span><span style="color:#924c9d">{</span><span style="color:#0057ae">$n</span><span style="color:#bf0303">+2</span><span style="color:#924c9d">}</span><span style="color:#bf0303">!</span><span style="color:#924c9d">}</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#bf0303">Q</span><span style="color:#ca60ca">:qq</span><span style="color:#924c9d">{</span><span style="color:#bf0303">My favorite color</span><span style="color:#924c9d">\-</span><span style="color:#bf0303"> is </span><span style="color:#924c9d">{</span><span style="color:#0057ae">$n</span><span style="color:#bf0303">+2</span><span style="color:#924c9d">}</span><span style="color:#bf0303">!</span><span style="color:#924c9d">}</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">My </span><span style="color:#0057ae">$color</span><span style="color:#644a9b">[</span><span style="color:#b08000">0</span><span style="color:#644a9b">]</span><span style="color:#bf0303">.uc(</span>
|
|
<span style="color:#bf0303">) </span><span style="color:#0057ae">$n</span><span style="color:#bf0303">+</span><span style="color:#0057ae">$n</span><span style="color:#bf0303">.^name favorite color </span><span style="color:#ca60ca">\q</span><span style="color:#924c9d">[</span><span style="color:#bf0303">1is</span><span style="color:#924c9d">]</span><span style="color:#bf0303"> </span><span style="color:#bf0303">{</span><span style="color:#0057ae">$n</span><span style="color:#ca60ca">+</span><span style="color:#b08000">2</span><span style="color:#bf0303">}</span><span style="color:#bf0303">!abc</span><span style="color:#644a9b">&uc(</span><span style="color:#924c9d">'</span><span style="color:#bf0303">a</span><span style="color:#924c9d">'</span><span style="color:#644a9b">)</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">qqww</span><span style="color:#924c9d">|</span><span style="color:#bf0303">a</span><span style="color:#924c9d">|</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">qq:w:w</span><span style="color:#924c9d">|</span><span style="color:#bf0303">a</span><span style="color:#924c9d">|</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">q:a:v</span><span style="color:#924c9d">|</span><span style="color:#bf0303">a</span><span style="color:#924c9d">|</span>;
|
|
|
|
<span style="color:#644a9b">say</span>(<span style="color:#ca60ca">qq:to</span><span style="color:#924c9d">/TERM INATOR/</span><span style="color:#bf0303">, 1+1);</span>
|
|
<span style="color:#bf0303"> blah blah</span>
|
|
<span style="color:#bf0303"> </span><span style="color:#924c9d">TERM INATOR</span>
|
|
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$don't-do-that</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$piece_of_π</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">3.14</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$駱駝道</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$lexical</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic1</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">10</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic2</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">100</span>;
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> say-all() {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#0057ae">$lexical</span><span style="color:#bf0303">, </span><span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic1</span><span style="color:#bf0303">, </span><span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic2</span><span style="color:#924c9d">"</span>;
|
|
}
|
|
|
|
say-all();
|
|
|
|
{
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$lexical</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">2</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic1</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">11</span>;
|
|
<span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">dynamic2</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">101</span>;
|
|
}
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$square</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">9</span> <span style="color:#ca60ca">**</span> <span style="color:#b08000">2</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@array</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>; <span style="color:#898887"># Array variable with three elements</span>
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">%hash</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">London</span> <span style="color:#ca60ca">=></span> <span style="color:#924c9d">'</span><span style="color:#bf0303">UK</span><span style="color:#924c9d">'</span>, <span style="color:#0057ae">Berlin</span> <span style="color:#ca60ca">=></span> <span style="color:#924c9d">'</span><span style="color:#bf0303">Germany</span><span style="color:#924c9d">'</span>;
|
|
|
|
<span style="font-weight:bold">class</span> <span style="color:#0057ae">FailHash</span> <span style="font-weight:bold">is</span> <span style="color:#0057ae">Hash</span> {
|
|
<span style="font-weight:bold">has</span> <span style="color:#0057ae">Bool</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">!</span><span style="color:#0057ae">final</span> <span style="color:#ca60ca">=</span> <span style="font-weight:bold">False</span>;
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">method</span> <span style="color:#0057ae">AT-KEY</span> ( ::?<span style="color:#0057ae">CLASS</span>:<span style="color:#0057ae">D</span>: <span style="color:#0057ae">Str</span>:<span style="color:#0057ae">D</span> <span style="color:#0057ae">\key</span> ){
|
|
<span style="font-weight:bold">fail</span> <span style="color:#ca60ca">X</span>::<span style="color:#0057ae">OutOfRange</span><span style="color:#ca60ca">.</span>new(:<span style="color:#0057ae">what</span>(<span style="color:#924c9d">"</span><span style="color:#bf0303">Hash key</span><span style="color:#924c9d">"</span>), :<span style="color:#0057ae">got</span>(key),
|
|
:<span style="color:#0057ae">range</span>(<span style="font-weight:bold">self</span><span style="color:#ca60ca">.</span>keys)) <span style="font-weight:bold">if</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">!</span><span style="color:#0057ae">final</span> <span style="color:#ca60ca">&& !</span><span style="font-weight:bold">self</span><span style="color:#ca60ca">.</span><span style="color:#0057ae">EXISTS-KEY</span>(key);
|
|
callsame
|
|
}
|
|
|
|
<span style="color:#644a9b;font-weight:bold">method</span> finalize() {
|
|
<span style="color:#0057ae">$</span><span style="color:#0057ae">!</span><span style="color:#0057ae">final</span> <span style="color:#ca60ca">=</span> <span style="font-weight:bold">True</span>
|
|
}
|
|
}
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">%h</span> <span style="font-weight:bold">is</span> <span style="color:#0057ae">FailHash</span> <span style="color:#ca60ca">=</span> oranges <span style="color:#ca60ca">=></span> <span style="color:#924c9d">"</span><span style="color:#bf0303">round</span><span style="color:#924c9d">"</span>, bananas <span style="color:#ca60ca">=></span> <span style="color:#924c9d">"</span><span style="color:#bf0303">bendy</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">%h</span><span style="color:#924c9d"><</span><span style="color:#bf0303">oranges</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#0057ae">%h</span><span style="color:#ca60ca">.</span>finalize;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">%h</span><span style="color:#924c9d"><</span><span style="color:#bf0303">cherry</span><span style="color:#924c9d">></span>;
|
|
<span style="font-weight:bold">CATCH</span> { <span style="font-weight:bold">default</span> { put <span style="color:#ca60ca">.^</span>name, <span style="color:#924c9d">'</span><span style="color:#bf0303">: </span><span style="color:#924c9d">'</span>, <span style="color:#ca60ca">.</span><span style="color:#0057ae">Str</span> } }
|
|
|
|
<span style="font-weight:bold">my</span> ( <span style="color:#0057ae">@foo</span>, <span style="color:#0057ae">$bar</span> );
|
|
<span style="color:#0057ae">@foo</span> <span style="color:#ca60ca">=</span> (<span style="color:#0057ae">$bar</span>) <span style="color:#ca60ca">=</span> <span style="color:#b08000">42</span>, <span style="color:#924c9d">"</span><span style="color:#bf0303">str</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="font-weight:bold">anon</span> <span style="font-weight:bold">class</span> þ {};
|
|
<span style="color:#644a9b">say</span> <span style="font-weight:bold">anon</span> <span style="color:#644a9b;font-weight:bold">sub</span> þ { <span style="color:#b08000">42</span> };
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> a {
|
|
<span style="font-weight:bold">state</span> <span style="color:#0057ae">@x</span>;
|
|
<span style="font-weight:bold">state</span> <span style="color:#0057ae">$l</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">A</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#0057ae">@x</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">push</span>(<span style="color:#0057ae">$l</span><span style="color:#ca60ca">++</span>);
|
|
};
|
|
|
|
<span style="color:#644a9b">say</span> a <span style="font-weight:bold">for</span> <span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#b08000">6</span>;
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> foo(<span style="color:#0057ae">$x</span>) {
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$v</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">@</span>;
|
|
<span style="color:#0057ae">$v</span>[<span style="color:#0057ae">$x</span>] <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$x</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$v</span>;
|
|
}
|
|
|
|
foo(<span style="color:#0057ae">$_</span>) <span style="font-weight:bold">for</span> <span style="color:#ca60ca">^</span><span style="color:#b08000">3</span>;
|
|
|
|
<span style="font-weight:bold">use</span> <span style="color:#0057ae">MONKEY-TYPING</span>;
|
|
<span style="font-weight:bold">augment</span> <span style="font-weight:bold">class</span> <span style="color:#0057ae">Int</span> {
|
|
<span style="color:#644a9b;font-weight:bold">method</span> is-answer { <span style="font-weight:bold">self</span> <span style="color:#ca60ca">==</span> <span style="color:#b08000">42</span> }
|
|
}
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">42</span><span style="color:#ca60ca">.</span>is-answer;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$in</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">0</span>;
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> f(<span style="color:#0057ae">*@c</span>) {
|
|
(<span style="font-weight:bold">temp</span> <span style="color:#0057ae">$in</span>)<span style="color:#ca60ca">++</span>;
|
|
<span style="color:#924c9d">"</span><span style="color:#bf0303"><f></span><span style="color:#924c9d">\n</span><span style="color:#924c9d">"</span>
|
|
<span style="color:#ca60ca">~</span> <span style="color:#0057ae">@c</span>»<span style="color:#ca60ca">.</span>indent(<span style="color:#0057ae">$in</span>)<span style="color:#ca60ca">.</span>join(<span style="color:#924c9d">"</span><span style="color:#924c9d">\n</span><span style="color:#924c9d">"</span>)
|
|
<span style="color:#ca60ca">~</span> (<span style="color:#ca60ca">+</span><span style="color:#0057ae">@c</span> <span style="color:#ca60ca">??</span> <span style="color:#924c9d">"</span><span style="color:#924c9d">\n</span><span style="color:#924c9d">"</span> <span style="color:#ca60ca">!!</span> <span style="color:#924c9d">""</span>)
|
|
<span style="color:#ca60ca">~</span> <span style="color:#924c9d">'</span><span style="color:#bf0303"></f></span><span style="color:#924c9d">'</span>
|
|
};
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">ab:c d$e fgh ij*</span><span style="color:#924c9d">></span> {
|
|
<span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> <span style="font-weight:bold">if</span> <span style="color:#e31616">m/</span><span style="color:#924c9d"><</span><span style="font-weight:bold">-</span><span style="color:#b08000">alpha</span><span style="color:#924c9d">></span><span style="color:#e31616">/</span>;
|
|
}
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">.</span><span style="color:#924c9d">'</span> {
|
|
<span style="color:#ca60ca">.</span><span style="color:#0057ae">Str</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> <span style="font-weight:bold">when</span> <span style="color:#ca60ca">!</span><span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>d;
|
|
<span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>dir()»<span style="color:#ca60ca">.</span><span style="color:#0057ae">&</span><span style="color:#0057ae">?</span><span style="color:#0057ae">BLOCK</span> <span style="font-weight:bold">when</span> <span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>d <span style="color:#898887"># lets recurse a little!</span>
|
|
}
|
|
|
|
<span style="font-weight:bold">use</span> <span style="color:#0057ae">Dog</span>:<span style="color:#0057ae">auth</span><span style="color:#924c9d"><</span><span style="color:#bf0303">Somebody</span><span style="color:#924c9d">></span>:<span style="color:#0057ae">ver</span><span style="color:#924c9d"><</span><span style="color:#bf0303">2.0</span><span style="color:#924c9d">></span>;
|
|
|
|
infix:<span style="color:#924c9d"><</span><span style="color:#bf0303">+</span><span style="color:#924c9d">></span>
|
|
infix:<span style="color:#924c9d"><</span><span style="color:#bf0303">*</span><span style="color:#924c9d">></span>
|
|
infix:<span style="color:#924c9d">«</span><span style="color:#bf0303"><=</span><span style="color:#924c9d">»</span>
|
|
|
|
postfix:<span style="color:#924c9d"><</span><span style="color:#bf0303">²</span><span style="color:#924c9d">></span>
|
|
<span style="color:#0057ae">WOW</span>:<span style="color:#0057ae">That'sAwesome</span>
|
|
<span style="color:#0057ae">WOW</span>:<span style="color:#0057ae">That's</span><span style="color:#924c9d"><<</span><span style="color:#bf0303">🆒</span><span style="color:#924c9d">>></span>
|
|
party:<span style="color:#0057ae">sweet</span><span style="color:#924c9d"><</span><span style="color:#bf0303">16</span><span style="color:#924c9d">></span>
|
|
|
|
infix:<span style="color:#924c9d"><</span><span style="color:#bf0303">+</span><span style="color:#924c9d">></span>
|
|
infix:<span style="color:#924c9d"><<</span><span style="color:#bf0303">+</span><span style="color:#924c9d">>></span>
|
|
infix:<span style="color:#924c9d">«</span><span style="color:#bf0303">+</span><span style="color:#924c9d">»</span>
|
|
infix:[<span style="color:#924c9d">'</span><span style="color:#bf0303">+</span><span style="color:#924c9d">'</span>]
|
|
infix:(<span style="color:#924c9d">'</span><span style="color:#bf0303">+</span><span style="color:#924c9d">'</span>)
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$a</span>:<span style="color:#0057ae">b</span><span style="color:#924c9d"><</span><span style="color:#bf0303">c</span><span style="color:#924c9d">></span>:<span style="color:#0057ae">d</span><span style="color:#924c9d"><</span><span style="color:#bf0303">e</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">100</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$a</span>:<span style="color:#0057ae">d</span><span style="color:#924c9d"><</span><span style="color:#bf0303">e</span><span style="color:#924c9d">></span>:<span style="color:#0057ae">b</span><span style="color:#924c9d"><</span><span style="color:#bf0303">c</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">200</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$a</span>:<span style="color:#0057ae">b</span><span style="color:#924c9d"><</span><span style="color:#bf0303">c</span><span style="color:#924c9d">></span>:<span style="color:#0057ae">d</span><span style="color:#924c9d"><</span><span style="color:#bf0303">e</span><span style="color:#924c9d">></span>;
|
|
|
|
<span style="font-weight:bold">use</span> <span style="color:#0057ae">Test</span>; plan <span style="color:#b08000">1</span>; <span style="font-weight:bold">constant</span> <span style="color:#0057ae">&term</span>:<span style="color:#924c9d"><</span><span style="color:#bf0303">👍</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">&ok</span><span style="color:#ca60ca">.</span>assuming(<span style="font-weight:bold">True</span>);
|
|
👍
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$x</span> <span style="color:#ca60ca">=</span> <span style="font-weight:bold">do</span> <span style="font-weight:bold">if</span> <span style="font-weight:bold">True</span> { <span style="color:#b08000">42</span> };
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1000000</span>, <span style="color:#b08000">1_000_000</span>, <span style="color:#b08000">10_00000</span>, <span style="color:#b08000">100_00_00</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">-</span><span style="color:#b08000">2</span>, <span style="color:#b08000">12345</span>, <span style="color:#b08000">0xBEEF</span>, <span style="color:#b08000">0o755</span>, :<span style="color:#b08000">3</span><span style="color:#924c9d"><</span><span style="color:#b08000">1201</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1.0</span>, <span style="color:#b08000">3.14159</span>, <span style="color:#ca60ca">-</span><span style="color:#b08000">2.5</span>, :<span style="color:#b08000">3</span><span style="color:#924c9d"><</span><span style="color:#b08000">21.0012</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">1e0</span>, <span style="color:#b08000">6.022e23</span>, <span style="color:#b08000">1e-9</span>, <span style="color:#ca60ca">-</span><span style="color:#b08000">2e48</span>, <span style="color:#b08000">2e2</span><span style="color:#0057ae">i</span>, <span style="color:#b08000">.42</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">2</span><span style="color:#ca60ca">.</span>e2, <span style="color:#b08000">.2</span>, <span style="color:#b08000">0o3</span><span style="color:#bf0303;text-decoration:underline">9</span>, <span style="color:#b08000">0xfF3</span><span style="color:#bf0303;text-decoration:underline">u</span>, <span style="color:#b08000">0o</span><span style="color:#bf0303;text-decoration:underline">i</span>, <span style="color:#b08000">0x</span><span style="color:#bf0303;text-decoration:underline">i</span>, :<span style="color:#b08000">3</span><span style="color:#924c9d"><</span><span style="color:#bf0303;text-decoration:underline">></span>, :<span style="color:#b08000">23</span><span style="color:#924c9d"><</span><span style="color:#b08000">gg</span><span style="color:#bf0303;text-decoration:underline"> </span>; <span style="color:#898887"># error</span>
|
|
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#0057ae">$size</span> «[r<span style="color:#ca60ca">/</span>]« (<span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">60</span>, <span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">50</span>, <span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">40</span>, <span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">30</span>, <span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">20</span>, <span style="color:#b08000">2</span><span style="color:#ca60ca">**</span><span style="color:#b08000">10</span>)
|
|
<span style="color:#ca60ca">Z</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">EB PB TB GB MB KB</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">-></span> [<span style="color:#0057ae">\v</span>,<span style="color:#0057ae">\suffix</span>]
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">32</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">+=</span> <span style="color:#b08000">10</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">-=</span> <span style="color:#b08000">2</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">3</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">min=</span> <span style="color:#b08000">5</span>;
|
|
<span style="color:#0057ae">$s</span> <span style="color:#ca60ca">~=</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">b</span><span style="color:#924c9d">'</span>;
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> infix:<span style="color:#924c9d"><</span><span style="color:#bf0303">space-concat</span><span style="color:#924c9d">></span> (<span style="color:#0057ae">$a</span>, <span style="color:#0057ae">$b</span>) { <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">~</span> <span style="color:#924c9d">"</span><span style="color:#bf0303"> </span><span style="color:#924c9d">"</span> <span style="color:#ca60ca">~</span> <span style="color:#0057ae">$b</span> };
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">word1</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#0057ae">$a</span> space-concat<span style="color:#ca60ca">=</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">word2</span><span style="color:#924c9d">'</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Real</span> <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span><span style="color:#ca60ca">/</span><span style="color:#b08000">2</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">3.14</span>;
|
|
<span style="color:#0057ae">$a</span> <span style="color:#ca60ca">.=</span> round;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">=</span> <span style="font-weight:bold">True</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">so</span> <span style="color:#0057ae">$a</span> <span style="color:#ca60ca">!=</span> <span style="font-weight:bold">True</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$i</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">10</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$release</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">Date</span><span style="color:#ca60ca">.</span>new(:<span style="color:#b08000">2015</span>year, :<span style="color:#b08000">12</span>month, :<span style="color:#b08000">24</span>day);
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$today</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">Date</span><span style="color:#ca60ca">.</span>today;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">so</span> <span style="color:#0057ae">$release</span> <span style="color:#ca60ca">!before</span> <span style="color:#0057ae">$today</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">4</span> <span style="color:#ca60ca">R/</span> <span style="color:#b08000">12</span>;
|
|
<span style="color:#644a9b">say</span> [<span style="color:#ca60ca">R/</span>] <span style="color:#b08000">2</span>, <span style="color:#b08000">4</span>, <span style="color:#b08000">16</span>;
|
|
<span style="color:#644a9b">say</span> [<span style="color:#ca60ca">RZ~</span>] <span style="color:#924c9d"><</span><span style="color:#bf0303">1 2 3</span><span style="color:#924c9d">></span>,<span style="color:#924c9d"><</span><span style="color:#bf0303">4 5 6</span><span style="color:#924c9d">></span>
|
|
|
|
<span style="color:#644a9b">say</span> (<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>) »<span style="color:#ca60ca">*</span>» <span style="color:#b08000">2</span>;
|
|
<span style="color:#644a9b">say</span> (<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>, <span style="color:#b08000">4</span>) »<span style="color:#ca60ca">~</span>» <span style="color:#924c9d"><</span><span style="color:#bf0303">a b</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#644a9b">say</span> (<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>) »<span style="color:#ca60ca">+</span>« (<span style="color:#b08000">4</span>, <span style="color:#b08000">5</span>, <span style="color:#b08000">6</span>);
|
|
<span style="color:#644a9b">say</span> (<span style="color:#0057ae">&sin</span>, <span style="color:#0057ae">&cos</span>, <span style="color:#0057ae">&sqrt</span>)»<span style="color:#ca60ca">.</span>(<span style="color:#b08000">0.5</span>);
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">@a</span> »<span style="color:#ca60ca">+=</span>» <span style="color:#b08000">1</span>;
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$a</span>, <span style="color:#0057ae">$b</span>, <span style="color:#0057ae">$c</span>);
|
|
((<span style="color:#0057ae">$a</span>, <span style="color:#0057ae">$b</span>), <span style="color:#0057ae">$c</span>) «<span style="color:#ca60ca">=</span>» ((<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>), <span style="color:#b08000">3</span>);
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">!</span>« <span style="color:#0057ae">@wisdom</span>;
|
|
<span style="color:#0057ae">@a</span>»<span style="color:#ca60ca">++</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">-</span>« [[<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>], <span style="color:#b08000">3</span>];
|
|
|
|
<span style="color:#0057ae">@slops</span>»<span style="color:#ca60ca">.?</span>this-method-may-not-exist();
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">%outer</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span> <span style="color:#ca60ca">Z=></span> <span style="color:#924c9d"><</span><span style="color:#bf0303">a b c</span><span style="color:#924c9d">></span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">%inner</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span> <span style="color:#ca60ca">Z=></span> <span style="color:#924c9d"><</span><span style="color:#bf0303">x z</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">%outer</span> «<span style="color:#ca60ca">~</span>» <span style="color:#0057ae">%inner</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$neighbors</span> »>><span style="color:#ca60ca">+</span><<» (<span style="color:#0057ae">$p</span>, <span style="color:#0057ae">*</span>);
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> plus { <span style="color:#0057ae">$</span><span style="color:#0057ae">^</span><span style="color:#0057ae">a</span> <span style="color:#ca60ca">+</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">^</span><span style="color:#0057ae">b</span> };
|
|
<span style="color:#644a9b">say</span> [[<span style="color:#0057ae">&plus</span>]] <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@n</span> <span style="color:#ca60ca">=</span> [\<span style="color:#ca60ca">~</span>] <span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#0057ae">*</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">@n</span>[<span style="color:#ca60ca">^</span><span style="color:#b08000">5</span>];
|
|
|
|
<span style="color:#0057ae">@l</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">a b c d</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">Z~</span> <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#0057ae">*</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">so</span> <span style="color:#b08000">1</span> <span style="color:#ca60ca">S&</span> <span style="color:#b08000">2</span> <span style="color:#ca60ca">S&</span> <span style="color:#b08000">3</span>;
|
|
<span style="color:#0057ae">@a</span> <span style="color:#ca60ca">X</span>[<span style="color:#ca60ca">+=</span>] <span style="color:#0057ae">@b</span>;
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">sub</span> postfix:<span style="color:#924c9d"><</span><span style="color:#bf0303">++</span><span style="color:#924c9d">></span>(<span style="color:#0057ae">$x</span> <span style="font-weight:bold">is</span> <span style="color:#644a9b;font-weight:bold;font-style:italic">rw</span>) <span style="font-weight:bold">is</span> <span style="color:#644a9b;font-weight:bold;font-style:italic">assoc</span><span style="color:#924c9d"><</span><span style="color:#bf0303">non</span><span style="color:#924c9d">></span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$filename</span><span style="color:#ca60ca">++</span> <span style="font-weight:bold">for</span> <span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#b08000">3</span>;
|
|
<span style="color:#0057ae">$x</span> <span style="color:#ca60ca">%</span> <span style="color:#0057ae">$y</span> <span style="color:#ca60ca">==</span> <span style="color:#0057ae">$x</span> <span style="color:#ca60ca">-</span> floor(<span style="color:#0057ae">$x</span> <span style="color:#ca60ca">/</span> <span style="color:#0057ae">$y</span>) <span style="color:#ca60ca">*</span> <span style="color:#0057ae">$y</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">a a b c a d</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">⊍</span> bag(<span style="color:#924c9d"><</span><span style="color:#bf0303">a a b c c</span><span style="color:#924c9d">></span>);
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">-</span>« <span style="color:#924c9d"><</span><span style="color:#bf0303">1 2 3</span><span style="color:#924c9d">></span>
|
|
|
|
<span style="color:#898887"># This is wrong: creates a Hash of Mixes, not Mix:</span>
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Mix</span> <span style="color:#0057ae">%mix</span>;
|
|
<span style="color:#898887"># Works with $ sigil:</span>
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Mix</span> <span style="color:#0057ae">$mix</span>;
|
|
<span style="color:#898887"># Can be typed:</span>
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Mix</span>[Int] <span style="color:#0057ae">$mix-of-ints</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$x</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$x</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">7</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$x</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">7</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Int</span>:<span style="color:#0057ae">D</span> <span style="color:#0057ae">$x</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">7</span>;
|
|
ndef)
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$x</span> <span style="font-weight:bold">where</span> { <span style="color:#0057ae">$_</span> <span style="color:#ca60ca">></span> <span style="color:#b08000">3</span> } <span style="color:#ca60ca">=</span> <span style="color:#b08000">7</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">Int</span> <span style="color:#0057ae">$x</span> <span style="font-weight:bold">where</span> <span style="color:#0057ae">*</span> <span style="color:#ca60ca">></span> <span style="color:#b08000">3</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">7</span>;
|
|
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">tr</span><span style="font-weight:bold">:d:c</span><span style="color:#e31616">!</span><span style="color:#006e28">dol</span><span style="color:#e31616">!</span><span style="color:#bf0303">wne</span><span style="color:#e31616">!</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">TR</span><span style="font-weight:bold">:c</span><span style="color:#e31616">/</span><span style="color:#006e28">dol</span><span style="color:#e31616">/</span><span style="color:#bf0303">wne</span><span style="color:#e31616">/</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">s!</span><span style="color:#006e28">foo</span><span style="color:#e31616">!</span><span style="color:#bf0303">fox</span><span style="color:#e31616">!</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28">foo</span><span style="color:#e31616">/</span>bar<span style="color:#e31616">/</span><span style="color:#006e28">;</span>
|
|
<span style="color:#0057ae">$str</span><span style="color:#006e28"> </span><span style="color:#ca60ca">~~</span><span style="color:#006e28"> </span><span style="color:#e31616">/</span><span style="color:#ca60ca">//</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">rx/</span><span style="color:#006e28">foo</span><span style="color:#e31616">/</span>bar<span style="color:#e31616">/</span><span style="color:#006e28">;</span>
|
|
<span style="color:#0057ae">$str</span><span style="color:#006e28"> </span><span style="color:#ca60ca">~~</span><span style="color:#006e28"> Q </span><span style="font-weight:bold">:regex</span><span style="color:#006e28"> </span><span style="color:#e31616">/</span>foo<span style="color:#e31616">/</span><span style="color:#006e28">;</span>
|
|
<span style="color:#0057ae">$str</span><span style="color:#006e28"> </span><span style="color:#ca60ca">~~</span><span style="color:#006e28"> s</span>{b(<span style="color:#ca60ca">.</span>)r}<span style="color:#006e28"> = </span><span style="color:#924c9d">"</span><span style="color:#bf0303"> d</span><span style="color:#0057ae">$0</span><span style="color:#bf0303">n</span><span style="color:#924c9d">"</span><span style="color:#006e28">;</span>
|
|
<span style="color:#0057ae">$str</span><span style="color:#006e28"> </span><span style="color:#ca60ca">~~</span><span style="color:#006e28"> regex</span>{fox}<span style="color:#006e28">; </span><span style="color:#898887"># error</span>
|
|
<span style="color:#0057ae">$str</span><span style="color:#006e28"> </span><span style="color:#ca60ca">~~</span><span style="color:#006e28"> regex </span>{fox}<span style="color:#006e28">;</span>
|
|
<span style="color:#006e28">rx</span><span style="color:#e31616">/</span> <span style="color:#ca60ca">^</span>ab <span style="color:#e31616">/</span><span style="color:#006e28">;</span>
|
|
<span style="color:#e31616">/</span> <span style="color:#ca60ca">^</span> ab <span style="color:#e31616">/</span><span style="color:#006e28">;</span>
|
|
<span style="color:#006e28">rx</span><span style="color:#e31616">/</span> <span style="color:#0057ae">\d</span> <span style="color:#ca60ca">**</span> <span style="color:#b08000">2</span><span style="color:#ca60ca">/</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">tr</span><span style="font-weight:bold">:d:c</span><span style="color:#e31616">!</span><span style="color:#006e28">dol</span><span style="color:#e31616">!</span><span style="color:#bf0303">wne</span><span style="color:#e31616">!</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">TR</span><span style="font-weight:bold">:c</span><span style="color:#e31616">/</span><span style="color:#006e28">dol</span><span style="color:#e31616">/</span><span style="color:#bf0303">wne</span><span style="color:#e31616">/</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">s!</span><span style="color:#006e28">foo</span><span style="color:#e31616">!</span><span style="color:#bf0303">fox</span><span style="color:#e31616">!</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">rx/</span><span style="color:#006e28">foo</span><span style="color:#e31616">/</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="font-weight:bold">regex</span>:<span style="color:#0057ae">ds</span> {fox};
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="font-weight:bold">regex</span>{<span style="color:#006e28">fox</span>};
|
|
<span style="font-weight:bold">my</span> a <span style="color:#ca60ca">=</span> <span style="color:#e31616">/</span><span style="color:#006e28">a</span><span style="color:#e31616">/</span>;
|
|
<span style="color:#e31616">rx/</span><span style="color:#006e28"> </span><span style="font-weight:bold">^</span><span style="color:#006e28">ab </span><span style="color:#e31616">/</span>;
|
|
a <span style="color:#ca60ca">=</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span><span style="font-weight:bold">^</span><span style="color:#006e28"> ab </span><span style="color:#924c9d">'</span><span style="color:#bf0303">a</span><span style="color:#924c9d">'</span><span style="color:#006e28"> </span><span style="color:#924c9d">"</span><span style="color:#0057ae">$a</span><span style="color:#924c9d">"</span><span style="color:#006e28"> </span><span style="color:#b08000">\d</span><span style="color:#006e28"> </span><span style="color:#b08000">\n\n</span><span style="color:#006e28"> </span><span style="color:#924c9d"><:</span><span style="color:#b08000">L </span><span style="color:#924c9d">:</span><span style="color:#b08000">Script</span><span style="color:#924c9d"><</span><span style="color:#bf0303">Latin</span><span style="color:#924c9d">></span><span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="color:#924c9d"><:</span><span style="color:#b08000">Block</span>(<span style="color:#924c9d">'</span><span style="color:#bf0303">Basic Latin</span><span style="color:#924c9d">'</span>)<span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="color:#e31616">/</span>;
|
|
<span style="color:#ca60ca">//</span>;
|
|
<span style="color:#e31616">rx</span><span style="font-weight:bold">:sigspace</span><span style="color:#e31616">.</span><span style="color:#b08000">\d</span><span style="font-weight:bold">+</span><span style="color:#006e28"> </span><span style="color:#924c9d"><</span><span style="color:#b08000"> </span><span style="color:#924c9d">:</span><span style="color:#b08000">Script </span><span style="font-weight:bold">+</span><span style="color:#924c9d">:</span><span style="color:#b08000">Block "Basic Latin" </span><span style="font-weight:bold">+</span><span style="color:#b08000"> </span><span style="color:#924c9d">:</span><span style="color:#b08000">L</span><span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="color:#898887">#plop</span>
|
|
<span style="color:#924c9d">'</span><span style="color:#bf0303">-</span><span style="color:#924c9d">'</span><span style="color:#e31616">.</span>;
|
|
<span style="color:#e31616">rx/</span><span style="color:#006e28"> </span><span style="color:#b08000">\d</span><span style="color:#006e28"> </span><span style="font-weight:bold">**</span><span style="color:#006e28"> 2 </span><span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#b08000">\d</span><span style="color:#ff5500"> a d</span><span style="color:#0095ff;font-weight:bold">]</span><span style="font-weight:bold">+</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#b08000">\x233</span><span style="font-weight:bold">..</span><span style="color:#ff5500">\] " </span><span style="color:#b08000">\c[dsds]</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#924c9d">></span><span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m</span><span style="font-weight:bold">:g</span><span style="color:#e31616">/</span>[(<span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#ff5500">ACGT</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="font-weight:bold">**:</span><span style="color:#006e28"> 3</span>)<span style="color:#006e28"> </span><span style="color:#b08000">\s</span><span style="font-weight:bold">*</span>]<span style="font-weight:bold">+</span><span style="color:#006e28"> </span><span style="color:#b08000">\s</span><span style="font-weight:bold">+</span><span style="color:#006e28"> </span>(<span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#ff5500">A</span><span style="font-weight:bold">..</span><span style="color:#ff5500">Z a a</span><span style="font-weight:bold">..</span><span style="color:#ff5500">z </span><span style="color:#b08000">\s</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#924c9d">></span><span style="font-weight:bold">+</span>)<span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">$333</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m/</span><span style="font-weight:bold">^^</span><span style="color:#006e28"> </span><span style="color:#924c9d"><</span><span style="font-weight:bold">?</span>[<span style="font-weight:bold">$</span>]<span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="color:#644a9b;font-weight:bold">.</span><span style="color:#006e28"> </span><span style="color:#b08000">\d</span><span style="font-weight:bold">+</span><span style="color:#006e28"> </span><span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">/foo/o/bar/</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#ff5500">\/</span><span style="color:#644a9b;font-weight:bold">.</span><span style="font-weight:bold">**!</span>{<span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#b08000">10</span>}<span style="color:#ff5500">\/</span><span style="color:#e31616">/</span>;
|
|
rx(a);
|
|
<span style="color:#e31616">rx (</span><span style="color:#006e28">a</span><span style="color:#e31616">)</span>;
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="font-weight:bold">regex</span> {<span style="color:#006e28">fox</span>};
|
|
<span style="color:#0057ae">$str</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">s{</span><span style="color:#006e28">b</span>(<span style="color:#644a9b;font-weight:bold">.</span>)<span style="color:#006e28">r</span><span style="color:#e31616">}</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d">"</span><span style="color:#bf0303"> d</span><span style="color:#0057ae">$0</span><span style="color:#bf0303">n</span><span style="color:#924c9d">"</span>;
|
|
<span style="font-weight:bold">if</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span>[<span style="color:#006e28">a</span><span style="font-weight:bold">||</span><span style="color:#006e28">b</span>]<span style="color:#006e28"> </span>(<span style="color:#006e28">c</span>)<span style="color:#006e28"> </span><span style="color:#e31616">/</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">~</span><span style="color:#0057ae">$0</span>; <span style="color:#898887"># OUTPUT: «c»</span>
|
|
}
|
|
<span style="font-weight:bold">if</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span><span style="color:#ca60ca">$<myname></span><span style="color:#006e28"> = </span>[<span style="color:#006e28"> </span><span style="color:#b08000">\w</span><span style="font-weight:bold">+</span><span style="color:#006e28"> </span>]<span style="color:#006e28"> </span><span style="color:#e31616">/</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">~</span><span style="color:#0057ae">$<myname></span> <span style="color:#898887"># OUTPUT: «abc»</span>
|
|
}
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> a </span><span style="color:#924c9d"><(</span><span style="color:#006e28"> b </span><span style="color:#924c9d">)></span><span style="color:#006e28"> c</span><span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span><span style="color:#924c9d"><(</span><span style="color:#006e28">a </span><span style="color:#924c9d"><(</span><span style="color:#006e28"> b </span><span style="color:#924c9d">)></span><span style="color:#006e28"> c</span><span style="color:#924c9d">)></span><span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">"</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28">a</span><span style="color:#644a9b;font-weight:bold">.</span><span style="color:#006e28"> </span><span style="font-weight:bold">|</span><span style="color:#006e28"> ab </span>{ <span style="color:#644a9b">print</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">win</span><span style="color:#924c9d">"</span> }<span style="color:#006e28"> </span><span style="color:#e31616">/</span>;
|
|
|
|
<span style="color:#ca60ca">so</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">hello world</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m</span><span style="font-weight:bold">:Perl5</span><span style="color:#006e28;font-weight:bold">/</span><span style="color:#924c9d">^</span><span style="color:#006e28">hello </span><span style="color:#924c9d">(</span><span style="color:#006e28">world</span><span style="color:#924c9d">)</span><span style="color:#006e28;font-weight:bold">/</span>; <span style="color:#898887"># OUTPUT: «True»</span>
|
|
<span style="color:#ca60ca">so</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">hello world</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m/</span><span style="font-weight:bold">^</span><span style="color:#006e28">hello </span>(<span style="color:#006e28">world</span>)<span style="color:#e31616">/</span>; <span style="color:#898887"># OUTPUT: «False»</span>
|
|
<span style="color:#ca60ca">so</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">hello world</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m/</span><span style="font-weight:bold">^</span><span style="color:#006e28"> </span><span style="color:#924c9d">'</span><span style="color:#bf0303">hello </span><span style="color:#924c9d">'</span><span style="color:#006e28"> </span>(<span style="color:#924c9d">'</span><span style="color:#bf0303">world</span><span style="color:#924c9d">'</span>)<span style="color:#e31616">/</span>; <span style="color:#898887"># OUTPUT: «True»</span>
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Abra abra CADABRA</span><span style="color:#924c9d">"</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">m</span><span style="font-weight:bold">:exhaustive</span><span style="color:#e31616">/</span><span style="font-weight:bold">:i</span><span style="color:#006e28"> a </span><span style="color:#b08000">\w</span><span style="font-weight:bold">+</span><span style="color:#006e28"> a</span><span style="color:#e31616">/</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="font-weight:bold">regex</span> ipv4-octet {<span style="color:#006e28"> </span><span style="color:#b08000">\d</span><span style="color:#006e28"> </span><span style="font-weight:bold">**</span><span style="color:#006e28"> 1</span><span style="color:#ca60ca">..</span><span style="color:#006e28">3 </span><span style="color:#924c9d"><</span><span style="font-weight:bold">?</span>{ <span style="color:#0057ae">$/</span><span style="color:#ca60ca">.</span><span style="color:#0057ae">Int</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">= 255 && $/.Int </span><span style="color:#924c9d">></span><span style="color:#ca60ca">=</span> <span style="color:#b08000">0</span> }<span style="color:#924c9d">></span><span style="color:#006e28"> </span>}
|
|
<span style="font-weight:bold">my</span> <span style="font-weight:bold">regex</span> ipv4-octet {<span style="color:#006e28"> </span><span style="color:#b08000">\d</span><span style="color:#006e28"> </span><span style="font-weight:bold">**</span><span style="color:#006e28"> 1</span><span style="color:#ca60ca">..</span><span style="color:#006e28">3 </span><span style="color:#924c9d"><</span><span style="font-weight:bold">?</span>{ <span style="font-weight:bold">True</span> }<span style="color:#924c9d">></span><span style="color:#006e28"> </span>}
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span><span style="color:#924c9d"><</span><span style="font-weight:bold">?</span><span style="color:#924c9d">before</span><span style="color:#006e28"> a</span><span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="font-weight:bold">&&</span><span style="color:#006e28"> </span><span style="color:#644a9b;font-weight:bold">.</span><span style="color:#006e28"> </span><span style="color:#e31616">/</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abcdefg</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">rx{</span><span style="color:#006e28"> abc </span><span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#ff5500">email protected</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#b08000">ending_letters</span><span style="color:#924c9d">></span><span style="color:#006e28"> </span><span style="color:#e31616">}</span>;
|
|
<span style="color:#e31616">s</span><span style="font-weight:bold">:g</span><span style="color:#e31616">[</span><span style="color:#b08000">\d</span><span style="font-weight:bold">+</span><span style="color:#006e28"> </span><span style="color:#924c9d"><</span><span style="font-weight:bold">?</span><span style="color:#924c9d">before</span><span style="color:#006e28"> </span><span style="color:#b08000">\s</span><span style="font-weight:bold">*</span><span style="color:#006e28"> </span><span style="color:#0057ae">@units</span><span style="color:#924c9d">></span><span style="color:#e31616">]</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">5</span> <span style="color:#ca60ca">*</span> <span style="color:#0057ae">$/</span>;
|
|
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> walk(<span style="color:#0057ae">\thing</span>, <span style="color:#0057ae">*@keys</span>) <span style="font-weight:bold">is</span> <span style="color:#644a9b;font-weight:bold;font-style:italic">rw</span> {
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$current</span> <span style="color:#ca60ca">:=</span> thing;
|
|
<span style="font-weight:bold">for</span> <span style="color:#0057ae">@keys</span> <span style="color:#ca60ca">-></span> <span style="color:#0057ae">$k</span> {
|
|
<span style="font-weight:bold">if</span> <span style="color:#0057ae">$k</span> <span style="color:#ca60ca">~~</span> <span style="color:#0057ae">Int</span> {
|
|
<span style="color:#0057ae">$current</span> <span style="color:#ca60ca">:=</span> <span style="color:#0057ae">$current</span>[<span style="color:#0057ae">$k</span>];
|
|
}
|
|
<span style="font-weight:bold">else</span> {
|
|
<span style="color:#0057ae">$current</span> <span style="color:#ca60ca">:=</span> <span style="color:#0057ae">$current</span>{<span style="color:#0057ae">$k</span>};
|
|
}
|
|
}
|
|
<span style="color:#0057ae">$current</span>;
|
|
}
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">%hash</span>;
|
|
walk(<span style="color:#0057ae">%hash</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">some</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">key</span><span style="color:#924c9d">'</span>, <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>) <span style="color:#ca60ca">=</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">autovivified</span><span style="color:#924c9d">'</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">%hash</span><span style="color:#ca60ca">.</span>perl;
|
|
|
|
<span style="font-weight:bold">class</span> <span style="color:#ca60ca">X</span>::<span style="color:#0057ae">WithoutLineNumber</span> <span style="font-weight:bold">is</span> <span style="color:#ca60ca">X</span>::<span style="color:#0057ae">AdHoc</span> {
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">method</span> gist(<span style="color:#ca60ca">X</span>::<span style="color:#0057ae">WithoutLineNumber</span>:<span style="color:#0057ae">D</span>:) {
|
|
<span style="color:#0057ae">$</span><span style="color:#0057ae">.</span><span style="color:#0057ae">payload</span>
|
|
}
|
|
}
|
|
<span style="font-weight:bold">die</span> <span style="color:#ca60ca">X</span>::<span style="color:#0057ae">WithoutLineNumber</span><span style="color:#ca60ca">.</span>new(payload <span style="color:#ca60ca">=></span> <span style="color:#924c9d">"</span><span style="color:#bf0303">message</span><span style="color:#924c9d">"</span>)
|
|
|
|
{ <span style="font-weight:bold">return</span>; <span style="font-weight:bold">CATCH</span> { <span style="font-weight:bold">default</span> { <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">ERR</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span>: <span style="color:#ca60ca">.^</span>name, <span style="color:#924c9d">'</span><span style="color:#bf0303">: </span><span style="color:#924c9d">'</span>, <span style="color:#ca60ca">.</span><span style="color:#0057ae">Str</span> } } }
|
|
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">sub</span> trait_mod:<span style="color:#924c9d"><</span><span style="color:#bf0303">is</span><span style="color:#924c9d">></span>(<span style="color:#0057ae">Routine</span> <span style="color:#0057ae">$r</span>, :<span style="color:#0057ae">$export</span><span style="color:#ca60ca">!</span>)
|
|
|
|
<span style="font-weight:bold">react</span> {
|
|
<span style="font-weight:bold">whenever</span> signal(<span style="color:#0057ae">SIGINT</span>) {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">goodbye</span><span style="color:#924c9d">"</span>;
|
|
done
|
|
}
|
|
}
|
|
|
|
signal(<span style="color:#0057ae">SIGINT</span>)<span style="color:#ca60ca">.</span>tap: { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">bye</span><span style="color:#924c9d">"</span>; <span style="font-weight:bold">exit</span> }; <span style="font-weight:bold">loop</span> {}
|
|
|
|
<span style="color:#644a9b;font-weight:bold">method</span> base-repeating(<span style="color:#0057ae">Rational</span>:<span style="color:#0057ae">D</span>: <span style="color:#0057ae">Int</span>:<span style="color:#0057ae">D</span>() <span style="color:#0057ae">$base</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">10</span>)
|
|
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">sub</span> prefix:<span style="color:#924c9d"><</span><span style="color:#bf0303">--</span><span style="color:#924c9d">></span>(<span style="color:#0057ae">$x</span> <span style="font-weight:bold">is</span> <span style="color:#644a9b;font-weight:bold;font-style:italic">rw</span>) <span style="font-weight:bold">is</span> <span style="color:#644a9b;font-weight:bold;font-style:italic">assoc</span><span style="color:#924c9d"><</span><span style="color:#bf0303">non</span><span style="color:#924c9d">></span>
|
|
|
|
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#0057ae">MAIN</span>(<span style="color:#0057ae">Bool</span> :<span style="color:#0057ae">$man</span>) {
|
|
run <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">EXECUTABLE</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">--doc</span><span style="color:#924c9d">'</span>, <span style="color:#0057ae">$</span><span style="color:#0057ae">*</span><span style="color:#0057ae">PROGRAM</span>;
|
|
}
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#0057ae">$file</span><span style="color:#ca60ca">.</span>lines <span style="color:#ca60ca">-></span> <span style="color:#0057ae">$line</span> {
|
|
<span style="font-weight:bold">next</span> <span style="font-weight:bold">unless</span> <span style="color:#0057ae">$line</span>; <span style="color:#898887"># ignore any empty lines</span>
|
|
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$pairing</span>, <span style="color:#0057ae">$result</span>) <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$line</span><span style="color:#ca60ca">.</span>split(<span style="color:#924c9d">'</span><span style="color:#bf0303"> | </span><span style="color:#924c9d">'</span>);
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$p1</span>, <span style="color:#0057ae">$p2</span>) <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$pairing</span><span style="color:#ca60ca">.</span>words;
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$r1</span>, <span style="color:#0057ae">$r2</span>) <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$result</span><span style="color:#ca60ca">.</span>split(<span style="color:#924c9d">'</span><span style="color:#bf0303">:</span><span style="color:#924c9d">'</span>);
|
|
|
|
<span style="color:#0057ae">%sets</span>{<span style="color:#0057ae">$p1</span>} <span style="color:#ca60ca">+=</span> <span style="color:#0057ae">$r1</span>;
|
|
<span style="color:#0057ae">%sets</span>{<span style="color:#0057ae">$p2</span>} <span style="color:#ca60ca">+=</span> <span style="color:#0057ae">$r2</span>;
|
|
|
|
<span style="font-weight:bold">if</span> <span style="color:#0057ae">$r1</span> <span style="color:#ca60ca">></span> <span style="color:#0057ae">$r2</span> {
|
|
<span style="color:#0057ae">%matches</span>{<span style="color:#0057ae">$p1</span>}<span style="color:#ca60ca">++</span>;
|
|
} <span style="font-weight:bold">else</span> {
|
|
<span style="color:#0057ae">%matches</span>{<span style="color:#0057ae">$p2</span>}<span style="color:#ca60ca">++</span>;
|
|
}
|
|
}
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#0057ae">@sorted</span> <span style="color:#ca60ca">-></span> <span style="color:#0057ae">$n</span> {
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$match-noun</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">%matches</span>{<span style="color:#0057ae">$n</span>} <span style="color:#ca60ca">==</span> <span style="color:#b08000">1</span> <span style="color:#ca60ca">??</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">match</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">!!</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">matches</span><span style="color:#924c9d">'</span>;
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">$set-noun</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">%sets</span>{<span style="color:#0057ae">$n</span>} <span style="color:#ca60ca">==</span> <span style="color:#b08000">1</span> <span style="color:#ca60ca">??</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">set</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">!!</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">sets</span><span style="color:#924c9d">'</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#0057ae">$n</span><span style="color:#bf0303"> has won %matches</span><span style="color:#bf0303">{</span><span style="color:#0057ae">$n</span><span style="color:#bf0303">}</span><span style="color:#bf0303"> </span><span style="color:#0057ae">$match-noun</span><span style="color:#bf0303"> and %sets</span><span style="color:#bf0303">{</span><span style="color:#0057ae">$n</span><span style="color:#bf0303">}</span><span style="color:#bf0303"> </span><span style="color:#0057ae">$set-noun</span><span style="color:#924c9d">"</span>;
|
|
}
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Math: </span><span style="color:#bf0303">{ </span><span style="color:#b08000">1</span> <span style="color:#ca60ca">+</span><span style="color:#bf0303"> </span><span style="color:#b08000">2</span> <span style="color:#bf0303">}</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@people</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">Luke Matthew Mark</span><span style="color:#924c9d">></span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">The synoptics are: </span><span style="color:#bf0303">{</span><span style="color:#0057ae">@people</span><span style="color:#bf0303">}</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">{</span><span style="color:#0057ae">%sets</span><span style="color:#bf0303">}</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">we have </span><span style="color:#0057ae">@flavors</span><span style="color:#644a9b">[</span><span style="color:#b08000">0</span><span style="color:#644a9b">]</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">we have </span><span style="color:#0057ae">@flavors</span><span style="color:#644a9b">[]</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">we have </span><span style="color:#0057ae">@flavors</span><span style="color:#644a9b">.sort()</span><span style="color:#924c9d">"</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">we have </span><span style="color:#0057ae">@flavors</span><span style="color:#644a9b">.sort.join(</span><span style="color:#924c9d">'</span><span style="color:#bf0303">, </span><span style="color:#924c9d">'</span><span style="color:#644a9b">)</span><span style="color:#924c9d">"</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@valid-players</span> <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$file</span><span style="color:#ca60ca">.</span>get<span style="color:#ca60ca">.</span>words;
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#0057ae">$file</span><span style="color:#ca60ca">.</span>lines <span style="color:#ca60ca">-></span> <span style="color:#0057ae">$line</span> {
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$pairing</span>, <span style="color:#0057ae">$result</span>) <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$line</span><span style="color:#ca60ca">.</span>split(<span style="color:#924c9d">'</span><span style="color:#bf0303"> | </span><span style="color:#924c9d">'</span>);
|
|
<span style="font-weight:bold">my</span> (<span style="color:#0057ae">$p1</span>, <span style="color:#0057ae">$p2</span>) <span style="color:#ca60ca">=</span> <span style="color:#0057ae">$pairing</span><span style="color:#ca60ca">.</span>split(<span style="color:#924c9d">'</span><span style="color:#bf0303"> </span><span style="color:#924c9d">'</span>);
|
|
<span style="font-weight:bold">if</span> <span style="color:#0057ae">$p1</span> <span style="color:#ca60ca">∉</span> <span style="color:#0057ae">@valid-players</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Warning: '</span><span style="color:#0057ae">$p1'</span><span style="color:#bf0303"> is not on our list!</span><span style="color:#924c9d">"</span>;
|
|
}
|
|
<span style="font-weight:bold">if</span> <span style="color:#0057ae">$p2</span> <span style="color:#ca60ca">∉</span> <span style="color:#0057ae">@valid-players</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">Warning: '</span><span style="color:#0057ae">$p2'</span><span style="color:#bf0303"> is not on our list!</span><span style="color:#924c9d">"</span>;
|
|
}
|
|
}
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@array</span> <span style="color:#ca60ca">=</span> [ <span style="color:#924c9d">'</span><span style="color:#bf0303">x</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">xx</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">xxx</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">o</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">oo</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">X</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">Y</span><span style="color:#924c9d">'</span>, <span style="color:#924c9d">'</span><span style="color:#bf0303">Z</span><span style="color:#924c9d">'</span> ];
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@array</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d"><</span><span style="color:#bf0303"> x xx xxx o oo X Y Z </span><span style="color:#924c9d">></span>;
|
|
|
|
<span style="color:#644a9b;font-weight:bold">sub</span> plus { <span style="color:#0057ae">$</span><span style="color:#0057ae">^</span><span style="color:#0057ae">a</span> <span style="color:#ca60ca">+</span> <span style="color:#0057ae">$</span><span style="color:#0057ae">^</span><span style="color:#0057ae">b</span> };
|
|
<span style="color:#644a9b">say</span> [[<span style="color:#0057ae">&plus</span>]] <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>;
|
|
|
|
<span style="color:#644a9b">say</span> [<span style="color:#ca60ca">X~</span>] (<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>), <span style="color:#924c9d"><</span><span style="color:#bf0303">a b</span><span style="color:#924c9d">></span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@n</span> <span style="color:#ca60ca">=</span> [\<span style="color:#ca60ca">~</span>] <span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#0057ae">*</span>;
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">@n</span>[<span style="color:#ca60ca">^</span><span style="color:#b08000">5</span>];
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@l</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">a b c d</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">Z~</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">:</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">xx</span> <span style="color:#0057ae">*</span>;
|
|
<span style="color:#0057ae">@l</span> <span style="color:#ca60ca">=</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">a b c d</span><span style="color:#924c9d">></span> <span style="color:#ca60ca">Z~</span> <span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#0057ae">*</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">so</span> <span style="color:#b08000">1</span> <span style="color:#ca60ca">S&</span> <span style="color:#b08000">2</span> <span style="color:#ca60ca">S&</span> <span style="color:#b08000">3</span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">%color</span>«cherry <span style="color:#924c9d">"</span><span style="color:#0057ae">$fruit</span><span style="color:#924c9d">"</span>»<span style="color:#ca60ca">.</span>raku
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$a</span><span style="color:#ca60ca">.:</span><span style="color:#924c9d"><</span><span style="color:#bf0303">++</span><span style="color:#924c9d">></span>;
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#b08000">2</span> <span style="color:#ca60ca">!(elem)</span> (<span style="color:#b08000">1</span>, <span style="color:#b08000">2</span>, <span style="color:#b08000">3</span>);
|
|
|
|
<span style="color:#644a9b">say</span> <span style="color:#0057ae">$_</span> <span style="font-weight:bold">if</span> <span style="color:#e31616">/</span><span style="color:#006e28">A</span><span style="color:#e31616">/</span> <span style="color:#ca60ca">^ff^</span> <span style="color:#e31616">/</span><span style="color:#006e28">C</span><span style="color:#e31616">/</span> <span style="font-weight:bold">for</span> <span style="color:#0057ae">@list</span>
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@result</span>;
|
|
<span style="color:#924c9d"><</span><span style="color:#bf0303">people of earth</span><span style="color:#924c9d">></span>
|
|
<span style="color:#ca60ca">==></span> <span style="color:#644a9b">map</span>({ <span style="color:#ca60ca">.</span>tc })
|
|
<span style="color:#ca60ca">==></span> <span style="font-weight:bold">my</span> <span style="color:#0057ae">@caps</span>; <span style="color:#0057ae">@caps</span> <span style="color:#898887"># also could wrap in parentheses instead</span>
|
|
<span style="color:#ca60ca">==></span> grep <span style="color:#e31616">/</span><span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#ff5500">PE</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#924c9d">></span><span style="color:#e31616">/</span>
|
|
<span style="color:#ca60ca">==></span> sort()
|
|
<span style="color:#ca60ca">==></span> <span style="color:#0057ae">@result</span>;
|
|
|
|
<span style="font-weight:bold">my</span> <span style="color:#0057ae">@result</span>
|
|
<span style="color:#ca60ca"><==</span> sort()
|
|
<span style="color:#ca60ca"><==</span> grep({ <span style="color:#e31616">/</span><span style="color:#924c9d"><</span><span style="color:#0095ff;font-weight:bold">[</span><span style="color:#ff5500">PE</span><span style="color:#0095ff;font-weight:bold">]</span><span style="color:#924c9d">></span><span style="color:#e31616">/</span> })
|
|
<span style="color:#ca60ca"><==</span> <span style="font-weight:bold">my</span> <span style="color:#0057ae">@caps</span> <span style="color:#898887"># unlike ==>, there's no need for additional statement</span>
|
|
<span style="color:#ca60ca"><==</span> <span style="color:#644a9b">map</span>({ <span style="color:#ca60ca">.</span>tc })
|
|
<span style="color:#ca60ca"><==</span> <span style="color:#924c9d"><</span><span style="color:#bf0303">people of earth</span><span style="color:#924c9d">></span>;
|
|
|
|
<span style="font-weight:bold">False</span> <span style="color:#ca60ca">and</span> <span style="font-weight:bold">do</span> { <span style="color:#b08000">42</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> };
|
|
<span style="color:#b08000">3</span>, <span style="font-weight:bold">do</span> <span style="font-weight:bold">if</span> <span style="color:#b08000">1</span> { <span style="color:#b08000">2</span> } ;
|
|
<span style="font-weight:bold">if</span> <span style="color:#b08000">0</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">no</span><span style="color:#924c9d">"</span> } <span style="font-weight:bold">elsif</span> <span style="font-weight:bold">False</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">NO</span><span style="color:#924c9d">"</span> } <span style="font-weight:bold">else</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">"</span><span style="color:#bf0303">yes</span><span style="color:#924c9d">"</span> }
|
|
<span style="color:#0057ae">$_</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span>; <span style="font-weight:bold">unless</span> <span style="font-weight:bold">False</span> <span style="color:#ca60ca">-></span> <span style="color:#0057ae">$a</span> { <span style="color:#0057ae">$a</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> } ;
|
|
<span style="font-weight:bold">when</span> <span style="color:#ca60ca">so</span> <span style="color:#0057ae">$a</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">a</span><span style="color:#924c9d">'</span> }
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#b08000">1</span><span style="color:#ca60ca">..</span><span style="color:#b08000">100</span> {
|
|
<span style="font-weight:bold">when</span> <span style="color:#0057ae">*</span> <span style="color:#ca60ca">%%</span> <span style="color:#b08000">15</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">FizzBuzz</span><span style="color:#924c9d">'</span> }
|
|
<span style="font-weight:bold">when</span> <span style="color:#0057ae">*</span> <span style="color:#ca60ca">%%</span> <span style="color:#b08000">3</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">Fizz</span><span style="color:#924c9d">'</span> }
|
|
<span style="font-weight:bold">when</span> <span style="color:#0057ae">*</span> <span style="color:#ca60ca">%%</span> <span style="color:#b08000">5</span> { <span style="color:#644a9b">say</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">Buzz</span><span style="color:#924c9d">'</span> }
|
|
<span style="font-weight:bold">default</span> { <span style="color:#644a9b">say</span> <span style="color:#0057ae">$_</span> }
|
|
}
|
|
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">sub</span> grab(<span style="color:#0057ae">*</span><span style="color:#ca60ca">*</span><span style="color:#0057ae">@a</span>) { <span style="color:#924c9d">"</span><span style="color:#bf0303">grab </span><span style="color:#0057ae">$_</span><span style="color:#924c9d">"</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> <span style="font-weight:bold">for</span> <span style="color:#0057ae">@a</span> }
|
|
<span style="color:#644a9b;font-weight:bold">multi</span> <span style="color:#644a9b;font-weight:bold">sub</span> grab(<span style="color:#0057ae">\a</span>) {
|
|
a <span style="color:#ca60ca">~~</span> <span style="color:#0057ae">Iterable</span> <span style="color:#ca60ca">and</span> a<span style="color:#ca60ca">.</span><span style="color:#0057ae">VAR</span> <span style="color:#ca60ca">!~~</span> <span style="color:#0057ae">Scalar</span> <span style="color:#ca60ca">??</span> nextwith(<span style="color:#ca60ca">|</span>a) <span style="color:#ca60ca">!!</span> nextwith(a,)
|
|
}
|
|
|
|
<span style="font-weight:bold">for</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">.</span><span style="color:#924c9d">'</span> {
|
|
<span style="color:#ca60ca">.</span><span style="color:#0057ae">Str</span><span style="color:#ca60ca">.</span><span style="color:#644a9b">say</span> <span style="font-weight:bold">when</span> <span style="color:#ca60ca">!</span><span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>d;
|
|
<span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>dir()»<span style="color:#ca60ca">.</span><span style="color:#0057ae">&</span><span style="color:#0057ae">?</span><span style="color:#0057ae">BLOCK</span> <span style="font-weight:bold">when</span> <span style="color:#ca60ca">.</span><span style="color:#0057ae">IO</span><span style="color:#ca60ca">.</span>d <span style="color:#898887"># lets recurse a little!</span>
|
|
}
|
|
|
|
<span style="color:#644a9b">say</span> a»<span style="color:#ca60ca">.</span>(<span style="color:#b08000">0.5</span>); <span style="color:#644a9b">say</span> a>><span style="color:#ca60ca">.</span>(<span style="color:#b08000">0.5</span>); a<span style="color:#ca60ca">.:</span><span style="color:#924c9d"><</span><span style="color:#bf0303">sa</span><span style="color:#924c9d">></span> ; a<span style="color:#ca60ca">.</span> sa :<span style="color:#ca60ca">!</span><span style="font-weight:bold">False</span>
|
|
func <span style="color:#924c9d"><</span><span style="color:#bf0303">a b</span><span style="color:#924c9d">></span>
|
|
|
|
|
|
<span style="font-weight:bold">if</span> <span style="color:#924c9d">'</span><span style="color:#bf0303">abc-abc-abc</span><span style="color:#924c9d">'</span> <span style="color:#ca60ca">~~</span> <span style="color:#e31616">/</span><span style="color:#006e28"> </span><span style="color:#ca60ca">$<string></span><span style="color:#006e28">=</span>(<span style="color:#006e28"> </span>[<span style="color:#006e28"> </span><span style="color:#ca60ca">$<part></span><span style="color:#006e28">=</span>[<span style="color:#006e28">abc</span>]<span style="color:#006e28"> </span>]<span style="font-weight:bold">*</span><span style="color:#006e28"> </span><span style="font-weight:bold">%</span><span style="color:#006e28"> </span><span style="color:#924c9d">'</span><span style="color:#bf0303">-</span><span style="color:#924c9d">'</span><span style="color:#006e28"> </span>)<span style="color:#006e28"> </span><span style="color:#e31616">/</span> {
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">~</span><span style="color:#0057ae">$<string></span>; <span style="color:#898887"># OUTPUT: «abc-abc-abc»</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">~</span><span style="color:#0057ae">$<string><part></span>; <span style="color:#898887"># OUTPUT: «abc abc abc»</span>
|
|
<span style="color:#644a9b">say</span> <span style="color:#ca60ca">~</span><span style="color:#0057ae">$<string><part></span>[<span style="color:#b08000">0</span>]; <span style="color:#898887"># OUTPUT: «abc»</span>
|
|
}
|
|
|
|
[«[«[«[<span style="color:#ca60ca">+</span>]»]»]»] <span style="color:#924c9d"><</span><span style="color:#bf0303">1 2 3 4</span><span style="color:#924c9d">></span>
|
|
</pre></body></html>
|