|
|
@ -150,16 +150,6 @@ confuse_list(List, Cnt, Result) -> |
|
|
|
{Element, NList} = extract_member(Index, List, []), |
|
|
|
confuse_list(NList, Cnt - 1, [Element | Result]). |
|
|
|
|
|
|
|
extract_member(1, List1, List2) -> |
|
|
|
case List1 of |
|
|
|
[R] -> |
|
|
|
{R, List2}; |
|
|
|
[R | L] -> |
|
|
|
{R, List2 ++ L} |
|
|
|
end; |
|
|
|
extract_member(Nth, [R | List1], List2) -> |
|
|
|
extract_member(Nth - 1, List1, [R | List2]). |
|
|
|
|
|
|
|
confuse_list1(List) -> |
|
|
|
TupleList = list_to_tuple(List), |
|
|
|
TupleSize = tuple_size(TupleList), |
|
|
|