0racle

One of Larry's purported factors in the design of Camelia (and by extension, Perl 6) was to appeal to 7 year old girls (and by extension, people new to programming in general).

In addition, another design principle of Perl6 was to make it "less Unix centric". Whereas Perl had s/// and tr///, Perl 6 retains these but adds subst and trans, which is friendlier to new programmers, and self-documenting to some degree.

It seems odd, then, that we still have the grep operator named so. Even in Perl, grep - as in globally search a regular expression and print - bears little resemblance to what it actually does. It's more of a filter, filtering elements out that do not evaluate True to a given expression.

What then would be it's alternative friendly name? Taking into account these design principles...

• Context Sensitive: A term or symbol might do different things in different context

0racle

> my @bots = <Optimus Bluestreak Ironhide Jazz Ratchet Sideswipe Sunstreaker Trailbreaker>
[Optimus Bluestreak Ironhide Jazz Ratchet Sideswipe Sunstreaker Trailbreaker]

> @bots.first(/streak/)  
Bluestreak

> @bots.first(/streak/, :end)
Sunstreaker

0racle

Sort Gotcha

> <matthew mark luke john>.unique(as => *.chars).sort(by => *.chars)
(mark matthew)

Ahh good, my code works... except it's not really sorting by chars here because unlike unique, sort takes a code block not a named parameter. However there is no error to indicate this is not DWIM. It just silently sorts Naturally.

If your data happens to sort Naturally in the same order your by option would have sorted it - and you don't notice - you now have a bug laying dormant in your code that could go unnoticed indefinitely.

Sort should either handle this syntax, or otherwise throw up a warning;

0racle

use Test;

plan 22;

sub infix:<Meqv> { @^a == @^b && all @a Zeqv @b }

my @a =  1 ,  2 ,  3 ;
my @b = '1', '2', '3';

0racle

> my $a = 10
10
> my $x := $a
10
> $x = 5
5

😞

0racle

#If WinActive("ahk_class VanDyke Software - SecureCRT") || WinActive("ahk_class PuTTY")

; KEY MAPS

#IfWinActive

or...

0racle

set nocompatible

set encoding=utf-8
set fileencodings=utf-8

set number
set wildmenu

filetype plugin indent on

0racle

Script to find all the Magic Squares for the numbers 3-11 and the sum 21.

my $boxes = (3..11).permutations;
my $magic = 21; 

for $boxes.grep(&magic-square) -> @box {
    for @box.rotor(3) -> @row {
        say @row.fmt('%2d');
    }   

0racle

Given that dis.csv looks like this

Name|Age|DOB|Favourite Color
John|17|12/12/1998|Blue
David|31|15/07/1985|Orange
Michael|11|02/08/2005|Red

Open the file called dis.csv and assign the filehandle to the variable csvfile

0racle

# load my .aliases file if it exists
[[ -f ~/.aliases ]] && . ~/.aliases

# enable some features
autoload -U  compinit && compinit
autoload -U  colors && colors
autoload -U  promptinit && promptinit
autoload -U  up-line-or-beginning-search
autoload -U  down-line-or-beginning-search
autoload -Uz vcs_info