separate perl operators with whitespace

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index a2e3d793594ea4ff7cef7f85023e500cccbfde99..b4f40c85bd961d2b515c6b8e048a2413d3015266 100644 (file)
--- a/unicode.txt
+++ b/unicode.txt
@@ -11,7 +11,9 @@ Code:
 
   Hash[ :nbsp => 0O2_40 ].each {|name, cp| puts "#{name} is '#{cp.chr}'" }
 
-  perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
+  while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
+
+  perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
 
@@ -62,7 +64,8 @@ Proper typography:
   • Lookalikes: 1lI|, 0OD, 8B, 2Z, 5S$
   • “It’s ‘quoted’”, „deutsche ‚Gänsefüßchen‘“, « guillemets ‹comme ci› »
   • u + ¨ + ´ = ǘ, o + ~ + ¯ = ȭ, e + ^ + ` = ề
-  • †, ‡, ‰, •, 3–4, —, −5/+5, ™, €1, …
+  • ‰, •, 3–4, —, −5/+5, ™, €1, …
+  • ⒈ ♙e4 ♟e5 ⒉ f4 e×f4 ⒊ ♗c4 ♛h4† ⒋ ♔f1 b5⁈ ⒌ ♗×b5 ♞f6 ⒍ ♘f3 ♛h6 … 2⒊ ♗e7‡
 
 Precomposed and combining diacritics: