Post Reply 
(50g) Fun with Farey sequences
06-23-2015, 09:54 AM
Post: #9
RE: (50g) Fun with Farey sequences
I have this for the 49G.

Code:
::
  CK1&Dispatch
  BINT1
  ::
    COERCE
    BINT1
    FPTR2 ^2LAMBIND
    Z0_
    BINT0
    ONEONE
    2GETLAM
    BEGIN
    1GETLAM
    #1+
    1PUTLAM
    OVER
    FPTR2 ^#>Z
    OVER
    FPTR2 ^#>Z
    FPTR2 ^NDXFext
    5UNROLL
    4ROLL
    4ROLL
    2GETLAM
    OVER#+
    4PICK
    #/
    SWAPDROP
    5PICK
    OVER
    #*
    4ROLL
    #-
    3UNROLL
    4PICK
    #*
    SWAP#-
    2DUP#>
    UNTIL
    BINT4
    NDROP
    1GETABND
    {}N
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(50g) Fun with Farey sequences - Tugdual - 06-15-2015, 08:37 PM
RE: (50g) Fun with Farey sequences - Gerald H - 06-23-2015 09:54 AM



User(s) browsing this thread: 1 Guest(s)