В то время как решение, использующее для , лучше, вот карта -только версия, если у вас есть проблемы с пониманием для :
(map #(map (partial * %) s2) s1)
для выше расширяется до чего-то похожего, за исключением того, что вместо part используется другая анонимная функция, что-то вроде этого:
(map (fn [x] (map (fn [y] (* x y)) s2)) s1)
или, аккуратно отформатированный:1017 *
(map
(fn [x]
(map
(fn [y]
(* x y))
s2))
s1)