Name: Anonymous 2016-08-31 16:49
Github Windows client auto-inserts 0x0D into any text file, before every 0x0A, resulting into colossal mess with myriads of possible bugs.
This post is 150 characters long.How did you know that before even finishing your post? You're so special, please marry me Cudder-chama!
#!/usr/bin/perl -l
print "This post is ", -s $0, " bytes long.";
C:\Program Files\WindowsApps\Microsoft.MicrosoftSolitaireCollection_3.11.7293.0_neutral_split.scale-100_8wekyb3d8bbwe\Assets\Livetiles
C:\Users\John_Smith_Jr\AppData\Roaming\Mozilla\Firefox\Profiles\e9x41jtl.default\extensions\artur.dubovoy@gmail.com\chrome\content\bindings
CL-USER> (defun this-post-is (left right)
(let* ((cnt (+ (length left) (length right)))
(true-cnt (+ cnt (ceiling (log cnt 10)))))
(concatenate 'string left (write-to-string true-cnt) right)))
THIS-POST-IS
CL-USER> (this-post-is "This poast was brought to you by RedCream's spirit. This post has " " characters in it.")
CL-USER> (this-post-is "This poast was brought to you by RedCream's spirit. This post has " " characters in it. extra chars..")
"This poast was brought to you by RedCream's spirit. This post has 100 characters in it. extra chars.."
CL-USER> (length *)
101
CL-USER> (defun this-post-is (left right)
(let* ((count-digits (lambda (n) (1+ (floor (log n 10)))))
(input-cnt (+ (length left) (length right)))
(digits-input-cnt (+ (funcall count-digits input-cnt) input-cnt))
(true-cnt (+ (funcall count-digits digits-input-cnt) input-cnt)))
(concatenate 'string left (write-to-string true-cnt) right)))