Raul, Thanks to Joe, here's another way to get your image of F_Words:
require 'plot'
BUILD=: 3 : '(B=:A,B);A=:B,A'
g=: 13 :'-.>0{"2 (BUILD^:y'''')[''A B''=:1`0'
NB. (g 9)-:'0'=_1{::F_Words 20
plot }:+/\ 0,*/\(^~ 0j_1 0j1 $~ #)g 9
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Joe Bogner
Sent: Tuesday, June 03, 2014 12:49 PM
To: [email protected]
Subject: Re: [Jprogramming] Turtle graphics, Gaussian integers and
Mechanical action...
>
>
> Would it be possible to write a recursive function that would get your
list
> directly as numbers.
>
> Not recursive, but you could do this:
build =: 3 : 0
A=:B,A
B=:A,B
)
((build^:3 '') [ 'A B'=:1 `0)-:(0 1 0 0 1 0 1 0 0 1 0 0 1 0 1 0 0 1 0 1 0)
1
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
