June 3rd, 2004

В человеческом обличье

вот программку написал ;-))

ФАНФАРЫ !!! ;-)))

Моя первая программа на языке J:
maxidx=: [: (i. >./) [: {."1@+. ]
minidx=: [: (i. <./) [: {."1@+. ]
substrmin=: - minidx { ]
angles =: [: {:"1 [: *. (maxidx { ]) * [: + ]
]leftofline=:13 : '{: +. (* +)/ }. (- {.) y.'
]iteration =: 13 : '(1 ,(0>(3 leftofline\ y.)), 1)  # y.'
]hull =: 13 : 'iteration ^:_ (, {.) (_ (minidx y.)}
(angles substrmin y.)) (\:~) (y.)'
Collapse )
  • Tags