I've been trying to understand and simplify a function for the Fibonacci
series.

    F22=:E=:[:{."1 D=: (C=:+/,{.)^:B=:(A=:[:<])`(1 0"_)
   
   F22 8
1 1 2 3 5 8 13 21
   
   A 8
--┐
│8│
L--
   C 8
8 8
   D 8
 1  0
 1  1
 2  1
 3  2
 5  3
 8  5
13  8
21 13
   E 8
1 1 2 3 5 8 13 21

This has worked.  But:.
   
   B 8
|syntax error
|       B 8
   
   B
-------------T-------------------┐
│--T--------┐│--T---------------┐│
││3│---T-T-┐│││"│--------T-----┐││
││ ││[:│<│]││││ ││--T---┐│--T-┐│││
││ │L--+-+--│││ │││0│1 0│││0│_││││
│L-+---------││ ││L-+----│L-+--│││
│            ││ │L-------+------││
│            │L-+----------------│
L------------+--------------------
   

F22=:E=:[:{."1 D=: (C=:+/,{.)^:B=:(A=:[:<])`(1 0"_)
   
   F22 8
1 1 2 3 5 8 13 21
   
   A 8
--┐
│8│
L--
   C 8
8 8
   D 8
 1  0
 1  1
 2  1
 3  2
 5  3
 8  5
13  8
21 13
   E 8
1 1 2 3 5 8 13 21
   
   B 8
|syntax error
|       B 8
   
   B
-------------T-------------------┐
│--T--------┐│--T---------------┐│
││3│---T-T-┐│││"│--------T-----┐││
││ ││[:│<│]││││ ││--T---┐│--T-┐│││
││ │L--+-+--│││ │││0│1 0│││0│_││││
│L-+---------││ ││L-+----│L-+--│││
│            ││ │L-------+------││
│            │L-+----------------│
L------------+--------------------
   
 5!:2 <'B'
-------------T-------------------┐
│--T--------┐│--T---------------┐│
││3│---T-T-┐│││"│--------T-----┐││
││ ││[:│<│]││││ ││--T---┐│--T-┐│││
││ │L--+-+--│││ │││0│1 0│││0│_││││
│L-+---------││ ││L-+----│L-+--│││
│            ││ │L-------+------││
│            │L-+----------------│
L------------+--------------------


   5!:4 <'B'
-- (<(<,'3'),<;:'[:<]'),<(<,'"'),<(<(,'0');1 0),<(,'0');_

However it looks like I expect here.  Something seems wrong.
   
  5!:4 <'F22'
  -- [:                   
  │      -- {.            
  +- " --+- 1             
  │           -- / --- +  
--+      -----+- ,        
  │      │    L- {.       
  │      │          -- [: 
  L- ^: -+    ------+- <  
         │    │     L- ]  
         L----+           
              │     -- 1 0
              L- " -+- _  
   
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to