fork download
copy 
  1. (defun zero-push (x) (let ((s (princ-to-string x))) 
  2.   (labels ((zc (n m) (equal m #\0))) (parse-integer (sort s #'zc))))) 
  3.  
  4. (print (zero-push 20010307))
Success #stdin #stdout 0.02s 10544KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
21370000
https://ideone.com/nCuQBr
language:
Common Lisp (clisp 2.49.92)
created:
11 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!