LINUX.ORG.RU

История изменений

Исправление quasimoto, (текущая версия) :

читабельнее

А так:

K         Haskell                       Python

+/*/...   (+)/(*)/...                   add/mul/...
!         enumFromTo 0 . flip (-) 1     range
1+        (1 +)                         lambda x: x + 1
          map (1 +)                     lambda xs: map(lambda x: x + 1, xs)
          map (map (+ 1))               lambda xs: map(lambda ys: map(lambda z: z + 1, ys), xs)
                     ... up to any rank ...
/         foldl                         reduce
*/        foldl1 (*) = product          lambda xs: reduce(mul, xs)

?

Исходная версия quasimoto, :

читабельнее

А так:

K         Haskell                       Python

+/*/...   (+)/(*)/...                   add/mul/...
!         enumFromTo 0 . (flip (-) 1)   range
1+        (1 +)                         lambda x: x + 1
          map (1 +)                     lambda xs: map(lambda x: x + 1, xs)
          map (map (+ 1))               lambda xs: map(lambda ys: map(lambda z: z + 1, ys), xs)
                     ... up to any rank ...
/         foldl                         reduce
*/        foldl1 (*) = product          lambda xs: reduce(mul, xs)

?