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