git.shiar.nl
/
unicode-sampler.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
separate perl operators with whitespace
[unicode-sampler.git]
/
unicode.txt
diff --git
a/unicode.txt
b/unicode.txt
index cf94db3f0b948f4674a9b557c900ae7b35418b85..b4f40c85bd961d2b515c6b8e048a2413d3015266 100644
(file)
--- a/
unicode.txt
+++ b/
unicode.txt
@@
-13,7
+13,7
@@
Code:
while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
- perl -pe's/\w/$^
=~$&>chop($^=$&.$^)?"@-":
$&/ge'
+ perl -pe's/\w/$^
=~ $& > chop($^ = $& . $^) ? "@-" :
$&/ge'
↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life