fork(1) download 
  1. (defun change-byte (b)
  2. 	(let ((h (logand b #16RF0))
  3. 		(l (logand b #16R0F)))
  4. 		(unless (zerop (logand h #16R10)) (setf h (logxor h #16RC0)))
  5. 		(unless (zerop (logand l #16R1))  (setf l (logxor h #16R0C)))
  6. 		(logior h l)))
  7.  
  8. (defvar z 0)
  9. (setf z (read))
  10. (dotimes (i (ceiling (integer-length z) 8) z) 
  11. 	(setf z 
  12. 		(dpb (change-byte (ldb (byte 8 (* i 8)) z))
  13. 			(byte 8 (* i 8)) z)))
  14. (print z)
Success #stdin #stdout 0s 8212KB
comments (?)
stdin 
3434
stdout 
3178
https://ideone.com/UL3dT8
language:
Common Lisp (clisp 2.49.92)
created:
6 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!