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

Reply via email to