Thank you. That looks nice. Please feel free to add this to the rosettacode entry.
Thanks again, -- Raul On Wed, Jun 4, 2014 at 11:34 PM, Linda Alvord <[email protected]> wrote: > > 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 > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
