#Retina, 1107 629 bytes - 15% = 534.65 (non-competing)

Uses features added after challenge date. (Implicit behavior of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines. Byte count assumes ISO 8859-1 encoding.

The code contains unprintable characters.

 ¶ ± S_` %(S`± {2` $` }T01`-`_o )Ms`. \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶ 

Try it online

If you check out the Retina tutorial for unary arithmetic, you'll recognize several different pieces of my code as coming from there.

Thanks to Martin for golfing off hundred of bytes

Retina, 1107 629 bytes - 15% = 534.65 (non-competing)

Uses features added after challenge date. (Implicit behavior of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines. Byte count assumes ISO 8859-1 encoding.

The code contains unprintable characters.

 ¶ ± S_` %(S`± {2` $` }T01`-`_o )Ms`. \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶ 

Try it online

If you check out the Retina tutorial for unary arithmetic, you'll recognize several different pieces of my code as coming from there.

Thanks to Martin for golfing off hundred of bytes

#Retina, 1107 629 bytes - 15% = 534.65 (non-competing)

Uses features added after challenge date. (Implicit behavior of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines. Byte count assumes ISO 8859-1 encoding.

The code contains unprintable characters.

 ¶ ± S_` %(S`± {2` $` }T01`-`_o )Ms`. \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶ 

Try it online

Thanks to Martin for golfing off hundred of bytes

#Retina, 1107 629 bytes - 15% = 534.65 (non-competing)

Uses features added after challenge date. (Implicit behavior of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines. Byte count assumes ISO 8859-1 encoding.

The code contains unprintable characters.

 ¶ ± S_` %(S`± {2` $` }T01`-`_o )Ms`. \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶ 

Try it online

If you check out the Retina tutorial for unary arithmetic, you'll recognize several different pieces of my code as coming from there.

Thanks to Martin for golfing off hundred of bytes

#Retina, 1107 bytes - 15% = 940.95 (non-competing)

Uses features added after challenge date. (Implicit behavor of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines.

 ¶ 5 53 4 52 3 51 2 50 1 49 0 48 6 54 7 55 8 56 9 57 32 ! 33 " 34 # 35 \$ 36 % 37 & 38 ' 39 \( 40 \) 41 \* 42 \+ 43 , 44 - 45 \. 46 / 47 : 58 ; 59 < 60 = 61 > 62 \? 63 @ 64 A 65 B 66 C 67 D 68 E 69 F 70 G 71 H 72 I 73 J 74 K 75 L 76 M 77 N 78 O 79 P 80 Q 81 R 82 S 83 T 84 U 85 V 86 W 87 X 88 Y 89 Z 90 \[ 91 \\ 92 ] 93 \^ 94 _ 95 `` 96 a 97 b 98 c 99 d 100 e 101 f 102 g 103 h 104 i 105 j 106 k 107 l 108 m 109 n 110 o 111 p 112 q 113 r 114 s 115 t 116 u 117 v 118 w 119 x 120 y 121 z 122 { 123 \| 124 } 125 ~ 126 \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶ 

Try it online

#Retina, 1107 629 bytes - 15% = 534.65 (non-competing)

Uses features added after challenge date. (Implicit behavior of $*, ¶, Sorting)

Retina doesn't have a built-in to convert a character to its ASCII ordinal or back... so behold its lustrous length. This handles printable ASCII, and removes unprintables as well as newlines. Byte count assumes ISO 8859-1 encoding.

The code contains unprintable characters.

 ¶ ± S_` %(S`± {2` $` }T01`-`_o )Ms`. \d+ $* +`(1+)\1 ${1}0 01 1 %O$^`. T`01`10 1 01 +`10 011 0 m`^1{1,31}$ M%`1 m`^0¶? 126 ~ 125 } 124 | 123 { 122 z 121 y 120 x 119 w 118 v 117 u 116 t 115 s 114 r 113 q 112 p 111 o 110 n 109 m 108 l 107 k 106 j 105 i 104 h 103 g 102 f 101 e 100 d 99 c 98 b 97 a 96 ` 95 _ 94 ^ 93 ] 92 \ 91 [ 90 Z 89 Y 88 X 87 W 86 V 85 U 84 T 83 S 82 R 81 Q 80 P 79 O 78 N 77 M 76 L 75 K 74 J 73 I 72 H 71 G 70 F 69 E 68 D 67 C 66 B 65 A 64 @ 63 ? 62 > 61 = 60 < 59 ; 58 : 57 9 56 8 55 7 54 6 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ' 40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 ¶   

Try it online

Thanks to Martin for golfing off hundred of bytes