Also:
BUILD=: 3 : '(B=:A,B);A=:B,A'
g=: 13 :'-.>0{"2 (BUILD^:y'''')[''A B''=:1`0'
newfib=: 13 : '(,{:+ [: {:}:)^:(y-2) 1 1'
$g 1
3
$g 2
8
$g 3
21
$g 4
55
$g 5
144
$g 6
377
$g 7
987
$g 8
2584
$g 9
6765
newfib 20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Linda Alvord
Sent: Friday, June 06, 2014 9:26 PM
To: [email protected]
Subject: Re: [Jprogramming] Turtle graphics, Gaussian integers and Mechanical
action...
Raul, If you run the line to draw the plot several times, you will be
impressed with how much order Fibonacci Words bring to the Boolean lists.
NB. (g 9)-:'0'=_1{::F_Words 20
require 'plot'
BUILD=: 3 : '(B=:A,B);A=:B,A'
g=: 13 :'-.>0{"2 (BUILD^:y'''')[''A B''=:1`0'
$g 9
6765
plot }:+/\ 0,*/\(^~ 0j_1 0j1 $~ #)?6765#2
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Jose Mario
Quintana
Sent: Thursday, June 05, 2014 6:07 PM
To: Programming forum
Subject: Re: [Jprogramming] Turtle graphics, Gaussian integers and Mechanical
action...
t0=. ('0' = _1 {:: ])@:((, <@;@:{~&_1 _2)@]^:(2 -~ [)&('1';'0')) NB.
Tacit 0
BUILD=: 3 : '(B=:A,B);A=:B,A'
e0=: 13 :'-.>0{"2 (BUILD^:y'''')[''A B''=:1`0' NB.
Explicit 0
t1=. _1&({::)@:((] , <@:(_1&({::) , _2&({::)))@:]^:[)&(0;1) NB.
Tacit 1
t2=. _1&({::)@:(({: , ,&.>/@:|.)@:]^:[&(0;1)) NB.
Tacit 2
( t3=. t2 f. cap ) NB.
Tacit 3 (for Linda)
[: _1&({::) ([: ({: , [: ,&.>/ |.) ])^:[&(0;1)
(t0 20) -: (e0 9)
1
(t1 18) -: (e0 9)
1
(t2 18) -: (e0 9)
1
(t3 18) -: (e0 9)
1
st NB.
Comparison...
(] , <@:(1&({::) * 2&({::)))@:(] ; 7!:2@:] ; 6!:2)
100 st&> 't0 20' ; 'e0 9' ; 't1 18' ; 't2 18' ; 't3 18'
┌─────┬─────┬──────────┬────────┐
│t0 20│38400│3.07565e_5│1.18105 │
├─────┼─────┼──────────┼────────┤
│e0 9 │14592│2.57905e_5│0.376335│
├─────┼─────┼──────────┼────────┤
│t1 18│32000│3.4395e_5 │1.10064 │
├─────┼─────┼──────────┼────────┤
│t2 18│22912│1.2253e_5 │0.28074 │
├─────┼─────┼──────────┼────────┤
│t3 18│23424│1.44645e_5│0.338817│
└─────┴─────┴──────────┴────────┘
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
