grep-raku

#!/usr/local/bin/perl
## grep Rosettacode Raku code, matching plain-text and Unicode forms
#  2019-10-29
#  being just a 'grep', finds strings, not necessarily operators 
#  (e.g. no '⊍' in either form, but plenty of '(.)' for single-char capture
#  input patterns must escape ususual suspects: '^', '.', '$', etc.

use strict;
use warnings;

my $p = shift || die;

# hypers (first two are very common, rest very rare)
$p =~ s/(»|>>)/(»|>>)/g;
$p =~ s/(«|<<)/(«|<<)/g;
$p =~ s/(«=«|<<\[=\]<<)/(«=«|<<\\[=\\]<<)/g;
$p =~ s/(»=»|>>\[=\]>>)/(»=»|>>\\[=\\]>>)/g;
$p =~ s/(«=»|<<\[=\]>>)/(«=»|<<\\[=\\]>>)/g;
$p =~ s/(»=«|>>\[=\]<<)/(»=«|>>\\[=\\]<<)/g;

# math
$p =~ s/(≥|>=)/(>=|≥)/g;
$p =~ s/(≤|<=)/(<=|≤)/g;
$p =~ s/(≅|=~=)/(=~=|≅)/g;
$p =~ s/(∞|\bInf\b)/(∞|\\bInf\\b)/g;

# bare ranges need special handling
if ($p =~ /^(…|\.\.\.)$/) {
    $p =~ s/(…|\.\.\.)/[^.](…|\\.\\.\\.)[^.]/g;
} elsif ($p =~ /^\\.\\.$/) {
    $p =~ s/\\.\\./[^.]\\.\\.[^.]/g;
}

# set (just one-way transform)
$p =~ s/∖/(∖|\\(-\\))/g;
$p =~ s/∈/(∈|\\(elem\\))/g;
$p =~ s/∉/(∉|!\\(elem\\))/g;
$p =~ s/∋/(∋|\\(cont\\))/g;
$p =~ s/⊆/(⊆|!\\(<=\\))/g;
$p =~ s/⊈/(⊈|!\\(<=\\))/g;
$p =~ s/⊂/(⊂|\\(<\\))/g;
$p =~ s/⊄/(⊄|!\\(<\\))/g;
$p =~ s/⊇/(⊇|\\(>=\\))/g;
$p =~ s/⊉/(⊉|!\\(>=\\))/g;
$p =~ s/⊃/(⊃|\\(>\\))/g;
$p =~ s/⊅/(⊅|!\\(>\\))/g;
$p =~ s/∪/(∪|\\(\\|\\))/g;
$p =~ s/∩/(∩|\\(&\\))/g;
$p =~ s/⊖/(⊖|\\(^\\))/g;
$p =~ s/⊍/(⊍|\\(\\.\\))/g;
$p =~ s/⊎/(⊎|\\(\\+\\))/g;

# Unicode groups
$p =~ s/U:SUPER/(⁰|¹|²|³|⁴|⁵|⁶|⁷|⁸|⁹|ᵖ|°|¯|⁻|⁺)/i;
$p =~ s/U:GREEK/(Γ|Δ|Θ|Λ|Ξ|Π|Σ|Φ|Ψ|Ω|α|β|γ|δ|ε|ζ|η|θ|ι|κ|λ|μ|ν|ξ|ο|π|ρ|σ|τ|υ|φ|χ|ψ|ω|ϕ)/i;
$p =~ s/U:MATH/(≤|≥|÷|×|≈|≅|ᐁ|√|∫|ƒ|𝑒|∞|│|∘|∙|·|⋅)/i; # 3 different 'dots'
$p =~ s/U:SET/(∈|∉|∋|∌|⊆|⊈|⊂|⊄|⊇|⊉|⊃|⊅|∪|∩|∖|⊖|⊍|⊎|ø|−)/i;
$p =~ s/U:LOGIC/(¬|∨|∧|⇒|→|≡|ø)/i;
$p =~ s/U:BOLD/(ℝ|𝐷|𝑳|𝑀|𝑁|𝑃|𝑄|𝑅|𝑆|𝑎|𝑏|𝑐|𝑛|𝑝|𝑡)/i; # mostly bold/italic; likely incomplete

exec qq{ack '$p' [0-Z]};

__END__

ℝ  # from S/Set_of_real_numbers

≼   (<+)  # gone?
≽   (>+)  # gone?

− # set operation?
¯ ⁻ ⁺ # seen only in strings

ϵ ϰ ϕ ϱ ϖ µ # look Greek, but math 'symbols'

Α Β Γ Δ Ε Ζ Η Θ Ι Κ Λ Μ Ν Ξ Ο Π Ρ Σ Τ Υ Φ Χ Ψ Ω
α β γ δ ε ζ η θ ι κ λ μ ν ξ ο π ρ σ τ υ φ χ ψ ω