fork download
copy 
  1. (let ((res nil)
  2.       (width 26)
  3.       (str "gwAQEzx/4IkBACJD/AiQJDok//KpBCCyQ/wgsUKIIJ+VAAQiP8H4")
  4.       ;(str "FJmUBVVVAd3dQFVEIBVRCAAAAAzUrJqlKlWtSt2qcSVa3E1U")
  5.       (table "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"))
  6. (flet ((bs2bin (c) (format nil "~6,'0B" (position c table)))
  7.          (str2numlst (s) (if (eql s #\0) 0 1)))
  8. (setq res (mapcan #'(lambda (x) (map 'list #'str2numlst x)) (map 'list #'bs2bin str)))
  9. (do ((i 0 (+ i width))) ((< (length res) (+ i width)) 2014)
  10.   (format t "~{~[  ~;&&~]~}~%" (subseq res i (+ i width)))
  11. )))
Success #stdin #stdout 0.02s 10656KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
&&          &&&&                      &&            
  &&    &&&&    &&&&&&&&      &&&&&&&&&&&&&&&&&&&&  
        &&      &&    &&              &&            
        &&      &&    &&        &&&&&&&&&&&&&&&&    
        &&      &&    &&            &&    &&        
&&&&&&  &&      &&    &&    &&&&&&&&&&&&&&&&&&&&&&&&
    &&  &&  &&  &&    &&          &&        &&      
    &&  &&&&    &&    &&        &&&&&&&&&&&&&&&&    
    &&          &&  &&&&      &&  &&        &&  &&  
    &&          &&          &&    &&&&&&&&&&&&    &&
  &&  &&                          &&        &&      
&&      &&&&&&&&&&&&&&&&          &&&&&&&&&&&&
https://ideone.com/WsMzJM
language:
Common Lisp (clisp 2.49.92)
created:
10 years 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!