А есть здесь желающие прорецензировать исходники на языке J? Исходники примитивные, для обучающих целей.

p.s. уточнил запрос, а то людей смущает сложность формулировки

Генетический алгоритм с целочисленным кодированием. Вектор-хромосома представляет собой индексы в словаре языка J. Фитнесс-функция отправляет составленное выражение на вход открытому с J соединению и считывает результат. Генетическое программирование :)
Проблема появляется с некорректными решениями - их надо как-то на стороне J отлавливать.

А вот еще один подход введения замыканий в J:

accgen =: 3 : 0
closure =. gensym 'closure'
coclass closure
acc =: y
call =: 3 : 'acc =: acc + y'
coclass 'base'
conew closure
)
f=. accgen 3
call__f 0 NB. => 3
call__f 2 NB. => 5
Замыкание - объект класса с динамическим именем, вызов такого функтора получается немного рутинным. Есть и преимущество - ( Read more... )

На http://www.jsoftware.com/jwiki/Guides/Lexical_Closure обсуждение по созданию замыканий в J. В итоге там уже давно сошлись на том, что а)замыкания не нужны, б)реализовать замыкания можно, используя объекты.
Вот решение Олега Кобченко и Криса Бурка:

acc =: 1 : 0 ( Read more... )

Требуется: вектор случайных целых, так чтобы каждому из возможных значений соответствовала своя вероятность попадания.
Решение из обсуждения на rsdn.ru (один из анонимов там я):

round =: [: <. +&0.5 ( Read more... )

исправленный хеш:

NB. пример использования:
h =: ('two' ; 2) ; ('zero' ; 0) ; (<'one' ; 1 ( Read more... )

в одном блоге прочитал про:
(mapcar #M(abs /) '(1 -2 3 -4) '(2 -9 -8 2)) ;; ==> (1/2 2/9 3/8 2)
чуть дописал - теперь работает и такое:
;; типа hook из J
(#1J(- truncate) 2.79) ;; ==> 0.78999996
;; 0.7 (+ - *) 0.3
(#2J(+ - *) 0.3 0.7) ;; вероятностная сумма ==> 0.78999996
;; (+/ % #) 1 2 3 4 5
(#1J( #/(+) / length) #(1 2 3 4 5)) ;; среднее ==> 3
( код )

ниже страшненькая реализация именованных аргументов на j :)

cocurrent 'H'

fst =: [: > 0&{
snd =: [: > 1&{

pos =: 1: i.~ [: ; (([: # [) = [: +/ ([ = [: fst ]) :: 0:) each
add =: ;
get =: [: snd ([: > ]) {~ pos
unsafe_set =: 4 : '(

все-таки, J - забавная штука. ниже код обучения сети с обратным распространением ошибки. комментарии есть. вначале несколько вспомогательных глаголов. качество кода - плохое, сам знаю: несколько раз используется 'while.', а глагол 'bw' привести в нормальный вид, честно говоря, лень ( Read more... )

upd: Пытаюсь осваивать ocaml. В процессе освоения попытался сделать что-то вроде j-выражений. Уже работают 4 математические операции и форки :)
ниже построчно ocaml и j выражения

ge [||] "(
ge [|4.; 2.; 0.|] "4 2 0 (
gy [|2.;1.|] "+ >:" [|3.;-5.|];;
2 1 (+ >:) 3 _5
gy [||] "+: + >:" [|3.;-5.|];;
(+: + >:) 3 _5
( код )