vtwntmtn #4858(2007/12/17 15:56 GMT) [ Erlang ] Rating0/0=0.00
単純に。 1> c(diff). {ok,diff} 2> diff:diff([3, 1, 4, 1, 5, 9, 2, 6, 5]). [-2,3,-3,4,4,-7,4,-1]
1 2 3 4
-module(diff). -export([diff/1]). diff([X | XS]) -> [Y - Z || {Y, Z} <- lists:zip(XS ++ [void], [X | XS]), Y =/= void].
Rating0/0=0.00-0+
[ reply ]
vtwntmtn
#4858()
[
Erlang
]
Rating0/0=0.00
単純に。 1> c(diff). {ok,diff} 2> diff:diff([3, 1, 4, 1, 5, 9, 2, 6, 5]). [-2,3,-3,4,4,-7,4,-1]-module(diff). -export([diff/1]). diff([X | XS]) -> [Y - Z || {Y, Z} <- lists:zip(XS ++ [void], [X | XS]), Y =/= void].Rating0/0=0.00-0+
[ reply ]