fork download 
  1. (defun odai-22-171 (s)
  2.   (if (zerop (length s))
  3.       ""
  4.       (format nil "~v,'0B"
  5.               (length s)
  6.               (loop for c in (map 'list #'char-code s)
  7.                     for o = (logand c 1)
  8.                     for b = o then (logior (ash b 1) o)
  9.                     finally (return (ash (logand b (ash b 2)) -1))))))
  10.  
  11. (loop for s = (read-line nil nil)
  12.       while s
  13.       do (format t "~A~%~A~2%" s (odai-22-171 s)))
  14.  
Success #stdin #stdout 0.01s 29520KB
comments (?)
stdin 
a
ab
abc
abcIJKpqrXYZ
programming
Hello, world!
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
stdout 


a
0

ab
00

abc
010

abcIJKpqrXYZ
010010100000

programming
00001011010

Hello, world!
0000000000000

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
00101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010100
https://ideone.com/ftjccy
language:
Common Lisp (sbcl 1.4.16)
created:
164 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!