maybe_numb=: 13 : '>({.`}. @. ( _. = a)) (a=._. ". y) ;y'

     2+> maybe_numb '12223'
12225

      maybe_numb 'David'
David

      maybe_numb '3+45'
3+45


2007/12/28, Björn Helgason <[EMAIL PROTECTED]>:
>
>    maybe_numb=: 3 : 0
> a=._. ". y
> n=.  _. = a
> >({.`}. @. n ) a;y
> )
>
>      2+> maybe_numb '12223'
> 12225
>
>       maybe_numb 'David'
> David
>    0+maybe_numb '123'
> 123
>
>
> 2007/12/27, June Kim <[EMAIL PROTECTED]>:
> >
> > 2007/12/28, Björn Helgason <[EMAIL PROTECTED]>:
> > > Similar to:
> > >
> > >   maybe_numb=: 3 : 0
> > > a=._. ". y
> > > n=.  _. = a
> > > [ ^:  n y
> > > )
> > >   maybe_numb '12223'
> > > 12223
> > >   maybe_numb 'David'
> > > David
> > >   maybe_numb '3+45'
> > > 3+45
> >
> >    0+maybe_numb '123'
> > |domain error
> > |   0    +maybe_numb'123'
> >
> >    maybe_numb=: 3 : 0
> >         a=._. ". y
> >         n=.  _. = a
> >         y ([ ^:  n) a
> > )
> >
> >    0+maybe_numb '123'
> > 123
> >    0+maybe_numb '123+1'
> > |domain error
> > |   0    +maybe_numb'123+1'
> >
> >
> > >
> > >
> > > 2007/12/27, Roger Hui <[EMAIL PROTECTED]>:
> > > >
> > > >    mbn=: ] [^:(_.=]) _.&".
> > > >    mbn '12e3'
> > > > 12000
> > > >    mbn '3+45'
> > > > 3+45
> > > >
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: June Kim <[EMAIL PROTECTED] >
> > > > Date: Thursday, December 27, 2007 4:41
> > > > Subject: [Jprogramming] Numbers for numbers, otherwise leaving alone
> > > > To: Programming forum < [email protected]>
> > > >
> > > > > Current numbers operation is:
> > > > >    ". '12223'
> > > > > 12223
> > > > >    ". 'David'
> > > > >
> > > > >
> > > > > I could change the behavior when y can't be turned into a number:
> > > > >
> > > > >    _99 ". 'David'
> > > > > _99
> > > > >
> > > > > However, how would you define a verb that is:
> > > > >
> > > > >    maybe_numb '12223'
> > > > > 12223
> > > > >    maybe_numb 'David'
> > > > > 'David'
> > > > >
> > > > > I am looking for a simple solution.
> > > >
> > ----------------------------------------------------------------------
> > > > For information about J forums see
> > http://www.jsoftware.com/forums.htm
> > > >
> > >
> > >
> > >
> > > --
> > > Björn Helgason, Verkfræðingur
> > > Fugl&Fiskur ehf, Þerneyjarsund 23, Box 127
> > > 801 Grímsnes ,t-póst: [EMAIL PROTECTED]
> > > Skype: gosiminn, gsm: +3546985532
> > > Landslags og skrúðgarðagerð, gröfuþjónusta
> > > http://groups.google.com/group/J-Programming
> > >
> > >
> > > Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari
> > einfaldleikans
> > >
> > > góður kennari getur stigið á tær án þess að glansinn fari af skónum
> > >          /|_      .-----------------------------------.
> > >         ,'  .\  /  | Með léttri lund verður        |
> > >     ,--'    _,'   | Dagurinn í dag                     |
> > >    /       /       | Enn betri en gærdagurinn  |
> > >   (   -.  |        `-----------------------------------'
> > >   |     ) |        (\_ _/)
> > >  (`-.  '--.)       (='.'=)
> > >   `. )----'        (")_(")
> > >
> > > ----------------------------------------------------------------------
> > > For information about J forums see http://www.jsoftware.com/forums.htm
> > >
> >
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
>
>
>
> --
> Björn Helgason, Verkfræðingur
> Fugl&Fiskur ehf, Þerneyjarsund 23, Box 127
> 801 Grímsnes ,t-póst: [EMAIL PROTECTED]
> Skype: gosiminn, gsm: +3546985532
> Landslags og skrúðgarðagerð, gröfuþjónusta
> http://groups.google.com/group/J-Programming
>
>
> Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans
>
> góður kennari getur stigið á tær án þess að glansinn fari af skónum
>           /|_      .-----------------------------------.
>          ,'  .\  /  | Með léttri lund verður        |
>      ,--'    _,'   | Dagurinn í dag                     |
>     /       /       | Enn betri en gærdagurinn  |
>    (   -.  |        `-----------------------------------'
>    |     ) |        (\_ _/)
>   (`-.  '--.)       (='.'=)
>    `. )----'        (")_(")
>



-- 
Björn Helgason, Verkfræðingur
Fugl&Fiskur ehf, Þerneyjarsund 23, Box 127
801 Grímsnes ,t-póst: [EMAIL PROTECTED]
Skype: gosiminn, gsm: +3546985532
Landslags og skrúðgarðagerð, gröfuþjónusta
http://groups.google.com/group/J-Programming


Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans

góður kennari getur stigið á tær án þess að glansinn fari af skónum
          /|_      .-----------------------------------.
         ,'  .\  /  | Með léttri lund verður        |
     ,--'    _,'   | Dagurinn í dag                     |
    /       /       | Enn betri en gærdagurinn  |
   (   -.  |        `-----------------------------------'
   |     ) |        (\_ _/)
  (`-.  '--.)       (='.'=)
   `. )----'        (")_(")
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to