vtwntmtn #4847(2007/12/16 15:55 GMT) [ Erlang ] Rating0/0=0.00
色々整理してるうちにこうなってしまった…見づらいですね。 1> c(reverse_bits). {ok,reverse_bits} 2> reverse_bits:reverse_bits(4). [0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15]
1 2 3 4 5
-module(reverse_bits). -import(lists, [map/2, seq/2, sum/1, zip/2]). -export([reverse_bits/1]). reverse_bits(Col) -> [sum(map(fun({A, B}) -> A bsl B end, zip(X, seq(0, length(X) - 1)))) || X <- [[(Y bsr (Col - X)) rem 2 || X <- seq(1, Col)] || Y <- seq(0, (1 bsl Col) - 1)]].
Rating0/0=0.00-0+
[ reply ]
vtwntmtn
#4847()
[
Erlang
]
Rating0/0=0.00
色々整理してるうちにこうなってしまった…見づらいですね。 1> c(reverse_bits). {ok,reverse_bits} 2> reverse_bits:reverse_bits(4). [0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15]-module(reverse_bits). -import(lists, [map/2, seq/2, sum/1, zip/2]). -export([reverse_bits/1]). reverse_bits(Col) -> [sum(map(fun({A, B}) -> A bsl B end, zip(X, seq(0, length(X) - 1)))) || X <- [[(Y bsr (Col - X)) rem 2 || X <- seq(1, Col)] || Y <- seq(0, (1 bsl Col) - 1)]].Rating0/0=0.00-0+
[ reply ]