出されたお題をコーディングして罵られるスレ
■ このスレッドは過去ログ倉庫に格納されています
0882デフォルトの名無しさん
2013/11/16(土) 00:30:33.80(defun zero-push (x) (let ((s (princ-to-string x)))
(labels ((zc (n m) (equal m #\0))) (parse-integer (sort s #'zc)))))
(zero-push 20010307) => 21370000
■ このスレッドは過去ログ倉庫に格納されています