Усовершенствованная версия foldl
От: Lazy Cjow Rhrr Россия lj://_lcr_
Дата: 01.05.07 10:13
Оценка: 6 (1)
LCR>
foldl =: monad define
  'v a l' =. y
  ll =. l , a
  ". v , '/' , (5!:5) <'ll'
)

Присутствует лёгкое неудовлетворение от кривого использования '".' Так будет лучше:
foldl =: monad define
  'v a l' =. y
  ". 'u =. ', v
  u / l , a
)
   foldl '+' ; 11; i.10
56
quicksort =: (($:@(<#[),(=#[),$:@(>#[)) ({~ ?@#)) ^: (1<#)
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.