upsidedown: < > now treated as parenthesis.

2014-07-10 22:13:47 +02:00 · 2014-07-10 22:13:47 +02:00 · 9045bfe6a4
parent 5ff59030f4
commit 9045bfe6a4
1 changed files with 2 additions and 2 deletions
--- a/upsidedown/upsidedown
+++ b/upsidedown/upsidedown
@ -159,10 +159,10 @@ B<tr>(1)
 use utf8;

 my $down = ' @{}'.
-    q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾=-};
+    q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾=-<>};
 my @up = (" ",qw(@ } {),
    qw{∀ q Ɔ p Ǝ Ⅎ ⅁ H I ſ ʞ ⅂ W N O Ԁ Ό ᴚ S ⊥ ∩ Ʌ M X ⅄ Z ɐ q ɔ p ǝ ɟ 6 ɥ ı ſ ʞ l},
-       qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _ = -});
+       qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _ = - > <});

 my %up;
 my @down = split//,$down;