Re: [Factor-talk] 4DStroll - a 4D visualisation tool

2014-01-31 Thread Jean-François Bigot
Hi,

I updated a bit the code since last post. Source can be found on 
https://github.com/Bigot/factor/tree/4DStroll/extra/4DStroll

It's now possible to :
 - group/ungroup solids.
 - choose solids to add (simple way)
 - modify name and color of objects (basic way)

4DStroll begin to be usable to build 4D structures with basic bricks.

The are still some flickering on some computers and I never acheived to include 
all 4 views in a single window. It's sad but I think I don't really understand 
how opengl works. Any help would be welcome.

Thanks

Jeff
Le 9 janv. 2014 à 20:04, John Benediktsson a écrit :

 Hi Jeff,
 
 Very cool, is there a demo somewhere I can run to see how it works?
 
 Were you able to use or port the old 4DNav code?
 
 The old 4DNav code is in unmaintained and has been since the adsoda 
 vocabulary was moved to unmainted in Oct 2009.  We generally do a good job of 
 updating code in the main repository when the libraries change a little bit, 
 but it looks like it got a bit stale, sorry!
 
 Oh, one other question - the 4 views in a single window used to work and now 
 doesn't?
 
 Best,
 John.
 
 
 
 On Wed, Jan 8, 2014 at 1:05 PM, Diane BIGOT jeff.bi...@wanadoo.fr wrote:
 Hi
 
 In 2008 I posted a factor application called 4dnav. I didn't maintained it so 
 it was removed from the repository, probably when word iota was added.
 
 I upgraded it so that it now works (on my computer) with 0.96 version. I 
 renamed it 4DStroll in order to avoid name conflict with other commercial 
 tools. 
 
 4DStroll is a tool to visualise a 4 dimensionnal space thru 4 projections on 
 3D spaces, a bit like technical sketch for 3D objects. it uses algorithm call 
 ADSODA wich was proposed by Greg Ferrar (http://www.flowerfire.com/ADSODA/) 
 
 In each 3D window it is possible to move around objects (see doc for keys). 
 It is also possible to select objects using command window (double click on 
 the lines, border color of selected item change to pink) and to modify it (4D 
 rotations and 4D translations).
 
 I posted it in https://github.com/Bigot/factor/tree/4DStroll/extra/4DStroll
 
 
 it's not complete for the moment, still lot of work to do :
 - improve opengl part (code, add lights...)
 - clean code
 - add the hability to modify faces
 - add the hability to view a cut
 - add the hability to modify size of an object
 - add group/ungroup capacity
 - be able to choose the solid when using add button
 - be able to modify name, color... of objects
 - open doc from command window
 - verify hidden objects removal function
 - create deployed version
 - log
 
 More important, I didn't acheived to group all four views in a single window. 
 Every time, objects escape from one frame to pollute the others.
 
 Any comment or proposition is welcome.
 
 Jeff
 
 
 --
 Rapidly troubleshoot problems before they affect your business. Most IT
 organizations don't have a clear picture of how application performance
 affects their revenue. With AppDynamics, you get 100% visibility into your
 Java,.NET,  PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro!
 http://pubads.g.doubleclick.net/gampad/clk?id=84349831iu=/4140/ostg.clktrk
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk
 
 

--
WatchGuard Dimension instantly turns raw network data into actionable 
security intelligence. It gives you real-time visual feedback on key
security issues and trends.  Skip the complicated setup - simply import
a virtual appliance and go from zero to informed in seconds.
http://pubads.g.doubleclick.net/gampad/clk?id=123612991iu=/4140/ostg.clktrk___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] Parse ini file

2009-12-04 Thread Jean-François Bigot
Hi

I tried once to do something like that.

It's probably far simplier that what you want, but you can find the  
source at
http://thread.gmane.org/gmane.comp.lang.factor.general/2475

I didn't tested this for a long time, I don't know if it still works.

Jeff


Le 30 nov. 09 à 05:15, Le Hoang Anh a écrit :


 Hi all,

 Is there any vocab in Factor lib/paste.factorcode  to parse ini file?
 I'm factor newbie and looking something equivalent to this
 http://docs.python.org/library/configparser.html

 thanks,
 -- 
 anh

 -- 
 
 Let Crystal Reports handle the reporting - Free Crystal Reports  
 2008 30-Day
 trial. Simplify your report design, integration and deployment -  
 and focus on
 what you do best, core application coding. Discover what's new with
 Crystal Reports now.  http://p.sf.net/sfu/bobj-july
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk





--
Join us December 9, 2009 for the Red Hat Virtual Experience,
a free event focused on virtualization and cloud computing. 
Attend in-depth sessions from your desk. Your couch. Anywhere.
http://p.sf.net/sfu/redhat-sfdev2dev
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] LaTeX

2009-08-24 Thread Jean-François Bigot

Hi

I worked a little about a latex generator for factor doc. You can  
find all information on the enclosed mail I posted a few month ago.


I will be interested If you have feedback.

Jeff


Début du message réexpédié :


De : Jean-François Bigot jeff.bi...@wanadoo.fr
Date : 5 février 2009 22:26:20 HNEC
À : factor-talk@lists.sourceforge.net
Objet : [Factor-talk] latex ouput for help
Répondre à : factor-talk@lists.sourceforge.net

Hi

From time to time there is a question on the mailing list about a  
paper doc for latex.


As exercise to discover streams, I made a first attempt to write a  
latex output for doc. It's a modified version of help.html vocab.

You can found it in the latex directory on
git://github.com/Bigot/work-bgt.git

Useful words are in latex.help :
  - cookbooklatex ( -- ) to generate a cookbook tex file
  - word-helplatex ( word -- )
  - vocablatex
I also tried a generate-latex-doc word but my factor gets very slow  
after having generated 17500 files. My idea was to use \input 
{subfile} in a main latex document to concat needed pages.


I still have several difficulties
- I don't know how to handle stream-nl in order to avoid unwanted  
line break after commands
- in each help page there are two title-style elements, a block  
included in a span. I have no nice solution to keep only one, I  
decided to add a $tex-plain-span symbol in stylesheet.

-  I don't know the best way to add color to factor code.
- Is it better to use LGRIND package ? is anyone already used it ?
- or is it better to write a factor word to parse code ?

For the next step I will add refs in order to build an index and  
allow hypertext navigation in pdf file.

I rarely use latex so I'm interested by any feedback and advice.
I hope it will be useful.

Jeff


Le 24 août 09 à 03:24, Hugh Aguilar a écrit :



Does Factor offer any support for LaTeX? I'm working on building a
slide-rule and want to use Factor to generate the LaTeX code for  
the images
to be printed out as a pdf. I have my own idea for the design, so I  
can't

use any of the pdf files available by people who've already built
slide-rules. This shouldn't be too complicated to write. If Factor  
already

has LaTeX support though, I would rather use it as a jumping off point
rather than reinvent the wheel.

AutoCad and AutoLisp would probably be a better choice than LaTeX and
Factor, but I already know LaTeX --- and LaTeX is free.

BTW, I'm still working on that voting software. Most of what I'm  
doing now
is reading about the theory. The software is fairly simple, so I  
haven't had

to ask any questions in regard to Factor.


-- 

Let Crystal Reports handle the reporting - Free Crystal Reports  
2008 30-Day
trial. Simplify your report design, integration and deployment -  
and focus on

what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk

--
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] talks demos are unreadable

2009-04-20 Thread Jean-François Bigot
Hi

Just a small thing to correct with the new font vocabulary.

Previously the text in talks apps (google-talk etc) had a transparent  
background.

With the new UI improvements, on the windows last builds, the  
background is now black, text is unreadable.


Jeff

  


--
Stay on top of everything new and different, both inside and 
around Java (TM) technology - register by April 22, and save
$200 on the JavaOne (SM) conference, June 2-5, 2009, San Francisco.
300 plus technical and hands-on sessions. Register today. 
Use priority code J9JMT32. http://p.sf.net/sfu/p
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] My first OpenGL program in Factor, need some help

2009-04-05 Thread Jean-François Bigot
Hi

I'am not sure my code is up to date but you can give a look at extra/ 
4DNav.

The word add-keyboard-delegate links keys to actions.

Jeff

Le 5 avr. 09 à 20:12, Joe Groff a écrit :


 On Apr 5, 2009, at 3:31 AM, Jon Kleiser wrote:

 Hi,

 Thanks for your reply!

 - Make use of the arrow key events for rotation of the scene
 (pitch and
 yaw)

 You need to call define-gestures with an alist mapping keyboard
 gestures to quotations with effect ( gadget -- ). Grep around for
 define-gestures, you'll find plenty of examples.

 Slava

 But that doesn't seem to be how it's done in spheres.factor (or in
 demo-support.factor). There's no mention of define-gestures there,
 and yet
 the arrow keys work! How?

 The keyboard and mouse interaction in spheres is factored into the
 opengl.demo-support vocabulary, which defines a demo-gadget tuple
 class that the spheres gadget inherits from. The bunny demo also
 inherits from opengl.demo-support.

 -Joe

 -- 
 
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk




--
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] Genetic Programming in Factor?

2009-01-26 Thread Jean-François Bigot
Hi

I posted a simple GP vocab. You can find it on the page :

http://paste.factorcode.org/paste?id=336

There are two very simple examples in annotation, a 24 game solver  
and a ( x -- y ) function finder.


Jeff


Le 26 janv. 09 à 14:44, Charles Summers a écrit :


 Are there any examples of Genetic Programming using Factor?

 -- 
 -charles
 * This sig intentionally left blank *

 -- 
 
 This SF.net email is sponsored by:
 SourcForge Community
 SourceForge wants to tell your story.
 http://p.sf.net/sfu/sf-spreadtheword
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk




--
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] updated with-slots

2009-01-21 Thread Jean-François Bigot
Hi

Your with-slots word would be interesting to reimplement the  
loadable-values vocab I proposed a few days ago.

Nevertheless I really don't understand why the slots of abc are  
lowercase and accessors in the scope are uppercase. It's really hard  
for me to switch from the one to
other and keeping in mind that it's the same object behind.

Jeff


Le 20 janv. 09 à 20:45, Eduardo Cavazos a écrit :


 Hello,

 A new version of 'with-slots' is available.

 I'm hosting it in this repository intended for my experimental  
 stuff not in
 the mainline Factor tree:

 git://github.com/dharmatech/dharmalab.git

 Ed

 -- 
 
 This SF.net email is sponsored by:
 SourcForge Community
 SourceForge wants to tell your story.
 http://p.sf.net/sfu/sf-spreadtheword
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk




--
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] wiki - recover password

2009-01-18 Thread Jean-François Bigot
Ok thanks

it's already the second one ;-)

Jeff

Le 18 janv. 09 à 22:44, Slava Pestov a écrit :


 Hi Jean,

 Unfortunately, this feature is broken right now. The code works, but
 the outgoing mail server is blocking these e-mails. I will fix the
 configuration issue real soon now (John Nowak already reported it
 about 2 weeks ago, *sigh*).

 In the mean time, I suggest creating a new account.

 Slava

 On Sun, Jan 18, 2009 at 7:25 AM, Jean-François Bigot
 jeff.bi...@wanadoo.fr wrote:
 Hi

 I'm very thoughtless and rely on password recover functions.
 But unfortunately I'm not sure that the wiki recover lost password
 page works well.
 I fill my user-name, my e-mail address but I never got the e-mail  
 back.

 Could you help me ?

 thanks

 Jeff




 - 
 -
 This SF.net email is sponsored by:
 SourcForge Community
 SourceForge wants to tell your story.
 http://p.sf.net/sfu/sf-spreadtheword
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk


 -- 
 
 This SF.net email is sponsored by:
 SourcForge Community
 SourceForge wants to tell your story.
 http://p.sf.net/sfu/sf-spreadtheword
 ___
 Factor-talk mailing list
 Factor-talk@lists.sourceforge.net
 https://lists.sourceforge.net/lists/listinfo/factor-talk




--
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] factor-bgt repository

2008-12-26 Thread Jean-François Bigot

Doug wrote:
 Jeff,

 I tried your 4DNav app -- it's really cool!

 One thing I had to change to get it working is in extra/4DNav/
 4DNav.factor

 -extra/4DNav
 +resource:extra/4DNav

 The resource: is interpreted by the normalize-path word and replaced
 with the Factor directory.  Pathnames are interpreted relative to the
 current-directory, which is / on Mac (so it looks for /extra/4DNav/
 4DNav.factor) and probably your Factor directory on Linux, which is
 why it works for you but not for Mac users.  So in general, pathnames
 should be made absolute with the resource: prefix.

 I'm not going to change it because I don't want to conflict with
 whatever changes you might have made.

 Doug

Doug

Thanks for the advice, I committed your change.

I didn't found any mention of resource: in docs. A note about it in
Reading and writing files and Pathname manipulation would be useful.

Jeff
  


--
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] factor-bgt repository

2008-12-25 Thread Jean-François Bigot


Ed wrote :
 Jeff,

 I did a pull from 'factor-bgt' and I noticed these changes:

 rename {build-support = unmaintained/build-support}/factor.sh (100%)
 rename {build-support = unmaintained/build-support}/grovel.c (100%)

 Were those accidental?

 Ed


Hi

yes, I think it's accidental, I probably never even open those files.

Maybe a mistake during a git manipulation.


Jeff--
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] file chooser gadget

2008-12-22 Thread Jean-François Bigot

 On Saturday 13 December 2008 04:29:10 pm Jean-François Bigot wrote:

 I wanted to add a file chooser to 4DNav (http://github.com/Bigot/
 factor-bgt) in order to choose the 4D object to visualize but I
 didn't find one in ui.gadget.

 Hi Jeff,

 Minor note; I checked out your repository and there's a  
'Archive1125.zip' in

 the 'factor' directory. Perhaps you accidentally checked it in?

 Ed


thanks, corrected

Jeff --
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] GENERIC: in doc browser

2008-11-24 Thread Jean-François Bigot
Not the latest, but if I well understand, a git pull will make me  
happy !


thanks a lot

jeff



 Have you tried the latest git version?

On Mon, Nov 24, 2008 at 4:51 PM, Jean-François Bigot
[EMAIL PROTECTED] wrote:
 Hi,

 Doc browser is a really nice tool to jump from a definition to an
 other in order to discover how a word was implemented.

 Nevertheless I don't know how to easily handle methods doc pages and
 I am disappointed when during a word exploration I get on a generic
 word page.

 Could it be possible with a right clic on a generic word, or with a
 link in the generic word doc page, to open a page displaying the
 result of see-methods ?

 thanks


 Jeff-
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK  win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100url=/___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] deep-cleave-quots

2008-11-23 Thread Jean-François Bigot

Hi,

When I try to do something in Factor:
1. I look in libraries if a word do what I want (not always simple,  
and sometimes really hard)

2. I try to do it by myself if it is easy
3. I look at examples in extra vocabs and try to understand what is  
done (a great hand parsing job !)



When I began 4DNav I defined my own camera movements. I  then  
discovered opengl.camera and I refactored my code to use this vocab   
(Self always looks magical for me but it woks).


When turtle disappeared due to delegation incompatibility I tried to  
rewrite it. The only solution I found was to merge into a single file  
turtle pos and ori. Not very nice but that works.


Make-matrix was easy to understand and do the job well.

Of course your new Rz code is simpler to read and reusable  
everywhere. It is what I always looked for.


But I am not sure that the gap between:

 : make-matrix ( quot width -- matrix ) r { } make r group ; inline
 (oups sorry, [ { } make ] dip group )

and

 :: [deep-cleave-quots] ( SEQ -- quot )
   [let | QUOTS  [ SEQ [ quotation?   ] deep- 
filter ]
 RECIPE [ SEQ [ dup quotation? [ drop , ] [ ] if ] deep- 
map] |

[ QUOTS cleave RECIPE bake ] ] ;
 MACRO: deep-cleave-quots ( seq -- quot ) [deep-cleave-quots] ;

is easy to cross for a newbie. Slava's solution is more readable for  
me, but the most difficult point is to discover that words like deep- 
map and deep-filter exist.




By the way I also used make-matrix for my 4D rotations, I will  
rewrite my code with deep-cleave-quots. Also with this new word I  
would now be able to implement a word for a rotation in a N  
dimensional space in order to factor Rx Ry Rz, 4D-Rxy, 4D-Ryw...



thanks for your precious advices

Jeff-
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK  win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100url=/___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] ID with postgres DB

2008-10-26 Thread Jean-François Bigot

Hi

I want to use factor database library wih postgres but I have a  
little problem with primary key names.


It looks like primary key must be id.

When create-table is called, create-function-sql uses table name  
and suffix it with _id_seq to give a name to currval


select currval('' 0% 0%
_id_seq'')

If primary key is not id but tablename_id,  postgres creates  
tablename_tablename_id_seq as curval.


create-table fails because it looks for a tablename_id_seq curval  
which does not exist.


Would it be possible to modify create-function-sql in db.postgres  
to handle pk name other than id ?


thanks

JF

-
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK  win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100url=/___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] gl.camera and adsoda

2008-10-07 Thread Jean-François Bigot

Ed,

Don't get too enthusiastic and don't worry, I didn't hack your  
ciphered [A][cD](,023) (123) framework.
I just reused some ideas from lsys.ui and particularly camera-action  
word.


If your are still interested, as I don't have a git repository I can  
send you a zip file of my 20080827 working version before I implement  
my own camera.



Jeff


 On Friday 03 October 2008 15:51:45 Jean-François Bigot wrote:

  During the summer I wrote a simple tool to navigate in a 4D space.
 
  For the core, I used adsoda algorithm (http://www.flowerfire.com/
  ADSODA/) which I rewrote in factor.
 
  The viewer was design following the lsys example ie using gl.camera
  vocabulary.

 Jeff,

 By the way, this sounds really cool! It's pretty impressive that  
you were able
 to figure out the undocumented sketchy framework that's scattered  
over

 the 'lsys' implementation. I'd love to see your project code someday!

 Ed-
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK  win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100url=/___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


[Factor-talk] gl.camera and adsoda

2008-10-04 Thread Jean-François Bigot

Hi,

During the summer I wrote a simple tool to navigate in a 4D space.

For the core, I used adsoda algorithm (http://www.flowerfire.com/ 
ADSODA/) which I rewrote in factor.

The viewer was design following the lsys example ie using gl.camera  
vocabulary.

My problem is that i didn't found gl.camera in new releases of factor.
Must I re-implement my project with a code of my own or is there an  
other vocabulary to use ?


thanks,

Jeff



-
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK  win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100url=/
___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk


Re: [Factor-talk] What is a good definition ?

2008-04-25 Thread Jean-François Bigot

Hi,

Eric nicely gave me his solution :


DEFER: combinations

 : (combinations) [ 1 tail ] dip combinations ;

 : prefix-each [ prefix ] curry map ;

 : combinations ( seq n -- seqs )
{
{ [ dup 0 = ] [ 2drop { { } } ] }
{ [ over empty? ] [ 2drop { } ] }
{ [ t ] [
[ [ 1- (combinations) ] [ drop first ] 2bi prefix-each ]
[ (combinations) ] 2bi append
] }
} cond ;


It looks nice :
- only three conditions,
- very few shuffle words
- a good name
- prefix-each makes sens

OK lets try

[ 20 20 array 20  [ among ] with each ] time
= end  sequence error

I missed something (Eric didn't !)
I add a condition to my def that becomes

: columnize ( seq -- seq )
 [ 1array ] map
; inline

: among ( seq n -- seqs )
 2dup swap length
 {
 { [ over 1 = ] [ 3drop columnize ] }
 { [ over 0 = ] [ 2drop 2drop {  } ] }
 { [ 2dup  ] [ 2drop [ 1 cut ] dip
  [ 1- among [ append ] with map  ]
  [ among append ] 2bi
] }
 { [ 2dup = ] [ 3drop 1array ] }
 { [ 2dup  ] [ 2drop 2drop {  } ] }
 } cond
;


so again
 [ 20 20 array 20  [ among ] with each ] time
= 8953 ms run / 4142 ms GC time

and after
[ 20 20 array 20  [ combinations ] with each ] time
= 20500 ms run / 6359 ms GC time

I tried several times to be sure !

for 10 10 array 10 results are equals to 16 ms but for large  
number Eric's nice word is twice slower than mine.


WHY ?

Are there rules to optimise a word ?
On what point  must we focus to build efficient code ?

JF








-
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
Don't miss this year's exciting event. There's still time to save $100. 
Use priority code J8TL2D2. 
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone___
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk