Я хочу архивировать:
Map2[f,{a,b,c,d}]
{f[a,b], f[b,c], f[c,d]}
Но по какой-то причине я могу только думать об итеративных подходах.
Каков функциональный способ?
Изменить:
Использование этого, чтобы генерировать примеры графа. Если указан список номеров, то после этого создается график того, что он будет означать, чтобы последовательно посещать все узлы.
Например:
Map2 = # @@@ Partition[#2, 2, 1] &;
MG[elems_] := Graph[Map2[DirectedEdge, elems]]
nrs = RandomInteger[{1, 15}, 20]
MG[nrs]
{10,13,9,7,13,3,5,1,15,10,15,6,14,3,1,2,11,4,8,5}
Радиальная компоновка: