Dazzling! A quick and dirty function-level based alternative (without side
effects) follows:
X=. ".@(,~,2#{:)'([ <@] (<<43{a.) ;~ (58{a.) ; [ <@] ((,48{a.);1) ; [ <@]
(,48{a.) ; <)@(,~,2#{:)'''
X 5!:0 -: X
1
What was your motivation (if any)?
----- Original Message ----
From: Zsbán Ambrus <[EMAIL PROTECTED]>
To: [email protected]
Sent: Sunday, March 30, 2008 11:13:53 AM
Subject: [Jprogramming] A noun that's an atomic representation of itself
n =: <(<(<':'),<(<(,'0');1),<<;._1 ' 0
".c=.''<('''':'''';<((":0);<1);<(":0);<''''".c=.'''''''''''',((#~[:>:(39{a.)&=)c),39{a.);<<''''?'''''''),<<'?'
n 5!:0 -: n
1
Ambrus
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
