fork download 
  1. (with-open-stream (s (open "/dev/urandom"
  2.                            :direction :input
  3.                            :element-type '(unsigned-byte 8)))
  4.   (let* ((n 90)
  5.          (x (make-array n :element-type '(unsigned-byte 8))))
  6.     (read-sequence x s)
  7.     (loop for byte across x
  8.           for i upfrom 0
  9.           if (zerop (mod i 6))
  10.             do (fresh-line)
  11.           else
  12.             do (princ #\Space)
  13.           do (format t "~8,'0B" byte)
  14.           finally (terpri))))
  15.  
Success #stdin #stdout 0s 25400KB
comments (?)
stdin 
Standard input is empty
stdout 
00101100 01001001 00111010 11110010 01011000 00000110
00010111 00101111 11010101 10010100 01010000 00001111
10000001 10000100 11101000 11010000 01000100 10100101
01101100 10001101 10110111 00101011 11011010 01110001
10001010 10101111 01000111 00010111 00100010 00000001
10111110 01100101 01000110 00100110 00011111 11011011
00111110 10001101 10101101 10111101 00101010 00001111
00001010 01011001 00111100 11000010 11100011 01110001
11100111 11010001 10110011 10110110 01110010 11110010
00110000 11100100 00101000 11001110 01110011 00011000
01001101 10100010 11010100 10001111 00011010 10001011
01100000 00000110 10101000 00101001 01000001 11011010
11001100 11110101 01101111 01101111 11001100 11001001
00111001 10000111 10000010 10001010 11011101 01010111
10010110 01001010 01111000 10000011 10111111 11001111
https://ideone.com/EmGPSF
language:
Common Lisp (sbcl 1.4.16)
created:
5 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!