トップページ > プログラム > 2014年07月09日 > cyCbt8rM

書き込み順位＆時間帯一覧

38 位/227 ID中時間01234567891011121314151617181920212223Total
書き込み数0000200000000000000000002



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん
プログラミングのお題スレ Part4

書き込みレス一覧

プログラミングのお題スレ Part4
450 ：デフォルトの名無しさん[sage]：2014/07/09(水) 04:13:46.70 ID:cyCbt8rM
>>439
Scheme

(decibin 10) ->(0 1 0 1 0)
(decibin 10 8) ->(0 0 0 0 1 0 1 0)
(decibin -8) ->(1 0 0 0 )
(decibin -8 8) ->(1 1 1 1 1 0 0 0)
(decibin -1 ) ->(1 1)
(decibin '(0 1 1 1)) ->7
(decibin '(1 1 1 1)) ->-1
(decibin '(1 0 0 0 )) ->-8

ttp://codepad.org/JvIfQLjV
プログラミングのお題スレ Part4
451 ：デフォルトの名無しさん[sage]：2014/07/09(水) 04:55:09.87 ID:cyCbt8rM
>>450
メイン関数を整理

;;;解答関数
(define decibin
(lambda (src . bits)
(cond
;;2進数を10進数に変換
((pair? src) (2to10 src))
;;10進数を2進数に変換(bit長指定可)
((number? src)
(if (null? bits) (10to2 src)
(10to2 src (car bits))))
;;error
(else #f))))


※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。