Using both the monads <. and >. , a random sequence
of letters has a 2%25 = 0.08 chance of resulting in J.
In particular, Mr. Bron will be pleased to know that:

   >.@(+/%#)&.(a.&i.)@toupper 'DanBron'
J



----- Original Message -----
From: "R.E. Boss" <[email protected]>
Date: Thursday, October 15, 2009 8:42
Subject: Re: [Jprogramming] Hi.
To: 'Programming forum' <[email protected]>

> Well, here are some others, from
> http://www.jsoftware.com/jwiki/CategoryHomepage:
> 
> "Many called, few chosen."
> 
>   (<.@(+/%#)&.(a.&i.)@toupper&.> ,. ]) KnownHomepages
> +-+----------------------+
> |L|AlexRufon             |
> +-+----------------------+
> |J|ArtAnger              |
> +-+----------------------+
> |J|BJonas                |
> +-+----------------------+
> |H|BillLam               |
> +-+----------------------+
> |K|BrianSchott           |
> +-+----------------------+
> |J|ChrisBatho            |
> +-+----------------------+
> |K|ChrisBurke            |
> +-+----------------------+
> |I|DanBron               |
> +-+----------------------+
> |I|DavidAlis             |
> +-+----------------------+
> |I|DavidMitchell         |
> +-+----------------------+
> |J|DevonMcCormick        |
> +-+----------------------+
> |L|DonGuinn              |
> +-+----------------------+
> |M|EwartShaw             |
> +-+----------------------+
> |H|GregHeil              |
> +-+----------------------+
> |K|HarveyHahn            |
> +-+----------------------+
> |H|IanClark              |
> +-+----------------------+
> |N|IgorZhuravlov         |
> +-+----------------------+
> |O|JoeyTuttle            |
> +-+----------------------+
> |I|JohnBaker             |
> +-+----------------------+
> |I|JohnRandall           |
> +-+----------------------+
> |L|JordanTirrell         |
> +-+----------------------+
> |K|JuneKim               |
> +-+----------------------+
> |M|KenLettow             |
> +-+----------------------+
> |N|KipMurray             |
> +-+----------------------+
> |I|MarioSacco            |
> +-+----------------------+
> |M|MarkusSchmidtGroettrup|
> +-+----------------------+
> |L|MartinNeitzel         |
> +-+----------------------+
> |J|MatthewBrand          |
> +-+----------------------+
> |I|MikeNardell           |
> +-+----------------------+
> |I|OlegKobchenko         |
> +-+----------------------+
> |K|PaulKilpatrick        |
> +-+----------------------+
> |L|PeterSimple           |
> +-+----------------------+
> |F|RE 
> Boss               |
> +-+----------------------+
> |H|Raul 
> Miller           |
> +-+----------------------+
> |K|RicSherlock           |
> +-+----------------------+
> |L|RogerHui              |
> +-+----------------------+
> |K|SeanOByrne            |
> +-+----------------------+
> |J|SkipCave              |
> +-+----------------------+
> |M|SteveRogers           |
> +-+----------------------+
> |M|StevenPhillips        |
> +-+----------------------+
> |K|TomAllen              |
> +-+----------------------+
> |M|TomArneson            |
> +-+----------------------+
> |L|TracyHarms            |
> +-+----------------------+
> |K|ZachReiter            |
> +-+----------------------+
> |F|bathala               |
> +-+----------------------+
>    
> 
> R.E. Boss
> 
> 
> > -----Oorspronkelijk bericht-----
> > Van: [email protected] [mailto:programming-
> > [email protected]] Namens Thomas Costigliola
> > Verzonden: donderdag 15 oktober 2009 17:02
> > Aan: Programming forum
> > Onderwerp: Re: [Jprogramming] Hi.
> > 
> > 
> >    >.@(+/%#)&.(a.&i.)'THOMAS COSTIGLIOLA'
> > J
> > 
> > Hehe, I am in the right career.
> > 
> > 
> > On Thu, Oct 15, 2009 at 10:43 AM, Dan Bron <[email protected]> wrote:
> > > I wrote:
> > >>  The goal is simple: provide a brief, elegant, or otherwise 
> interesting> J
> > >>  phrase that produces the name of a programming language, 
> given the
> > name of
> > >>  its author or one of its major contributors or prominent 
> community> >>  members.
> > >
> > > Here's my first play:
> > >
> > >           mm =:  {.                     NB.  MegaloManiacs = 
> named the
> > language
> > > after themselves
> > >           mm psychoanalyze PLs
> > >        +-+-----------+
> > >        |L|LARRY MCVOY|
> > >        +-+-----------+
> > >        |R|ROSS IHAKA |
> > >        +-+-----------+
> > >
> > >           ng =:  <.@(+/ % #)&.(a.&i.)   NB.  Nice Guys = 
> "not quite
> > mean"
> > >           ng psychoanalyze PLs
> > >        +-+--------------+
> > >        |K|ARTHUR WHITNEY|
> > >        +-+--------------+
> > >        |Q|ALBERT GRÄF  |
> > >        +-+--------------+
> > >
> > > Here are the definitions I used:
> > >
> > >           psychoanalyze =. (=`) (`:6) (&>) / (@:|:) (#~`) (`:6)
> > >
> > >           PLs =: (({.@:{.~ ; (}.~ >:)) i.&' ');._2 TAB -.~ 
> ucp noun
> > define
> > >                B KEN THOMPSON
> > >                C DENNIS RITCHIE
> > >                D WALTER BRIGHT
> > >                E MARK MILLER
> > >                F WALTER BRAINERD
> > >                J ROGER HUI
> > >                K ARTHUR WHITNEY
> > >                L LARRY MCVOY
> > >                Q ALBERT GRÄF
> > >                R ROSS IHAKA
> > >                S RICK BECKER
> > >                T JONATHAN REES
> > >        )
> > >
> > > Note that I rejigged PLs a bit to make the language name 
> scalar, which
> > > works for these single-letter programming languages.  Note 
> also that the
> > > game is pretty open and flexible; you don't have play this 
> way, I just
> > > think it's more fun to come up with a description and see 
> how many
> > authors
> > > meet it.  But one-off phrases for a particular 
> language/author are good
> > > too (so long as they're interesting).
> > >
> > > -Dan
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to