Jose Mario Quintana wrote:
>
> CHARS =: ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'
> randomize =: (fivePct f.)`(mutation f.)}
> fivePct =: 0.05 >: $ ?...@$ 0:
> mutation =: CHARS&(] ,: [ {~ $...@] ?...@$#@[)
> score =: +/@:~:"1
> copy100 =: 100 $ ,:
> NotDone =: 1 - -:
> initial =: CHARS ([ {~ ?...@$&#~ ) [
> next =: ([ (] {~ (i. <./)@:score) randomize@:copy100@:])
>
> [...]
>
> A one-liner that seems open for reduction:
> (([ (] {~ (i. <./)@:(
> [...]
>
Perhaps try this:
next1 =: ((i. <./)@:score { ]) randomize@:copy100@:]
--
View this message in context:
http://old.nabble.com/Re%3A-Limit-limitation-tp26865246s24193p26865386.html
Sent from the J Programming mailing list archive at Nabble.com.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
