バイナリ時間
1日を2^16分割してbinuteとしましょう。
;;;;今が何bin.か調べるCommon Lispコード。 (format t "~16,'0b~%" (multiple-value-bind (second minute hour) (get-decoded-time) (truncate (* (+ second (* 60 minute) (* 60 60 hour)) 65536/86400))))
もう 1111 1100 1110 1000分゛なので寝ます。
1日を2^16分割してbinuteとしましょう。
;;;;今が何bin.か調べるCommon Lispコード。 (format t "~16,'0b~%" (multiple-value-bind (second minute hour) (get-decoded-time) (truncate (* (+ second (* 60 minute) (* 60 60 hour)) 65536/86400))))
もう 1111 1100 1110 1000分゛なので寝ます。