Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #39038

Re: A Little Help Here?

From "Alex McDonald" <blog@rivadpm.com>
Newsgroups comp.lang.forth
Subject Re: A Little Help Here?
Date 2015-05-12 19:46 +0100
Organization A noiseless patient Spider
Message-ID <mithoe$gs9$1@dont-email.me> (permalink)
References <mis0te$p1v$1@dont-email.me> <misbbb$njk$1@dont-email.me> <op.xyijlhbswa0t4m@localhost> <7c669a2b-5b61-4943-bfca-55477572e8bf@googlegroups.com> <mitehm$3al$1@dont-email.me>

Show all headers | View raw

on 12/05/2015 18:51:50, rickman wrote:

> 
>: one-hot ( n1 -- n2 ) \ return value if exactly one bit set
> case
> 1 of 1 endof
> 2 of 2 endof
> 4 of 3 endof
> 0 ( default )
> endcase ;

Without branches;

create one-bit 0 c, 1 c, 2 c, 0 c, 3 c, 0 c, 0 c, 0 c,
: one-hot ( n1 -- n2 ) 7 and one-bit c@ ;

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 00:53 -0400
  Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 03:51 -0400
    Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 03:54 -0400
    Re: A Little Help Here? "Rod Pemberton" <bork@lllljunkqwer.cpm> - 2015-05-12 04:09 -0400
      Re: A Little Help Here? Tessa Bonting <tessa.bonting@gmail.com> - 2015-05-12 07:48 -0700
        Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 13:51 -0400
          Re: A Little Help Here? "Alex McDonald" <blog@rivadpm.com> - 2015-05-12 19:46 +0100
            Re: A Little Help Here? "Alex McDonald" <blog@rivadpm.com> - 2015-05-12 19:53 +0100
              Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 20:15 -0400
                Re: A Little Help Here? "Elizabeth D. Rather" <erather@forth.com> - 2015-05-12 19:29 -1000
            Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 21:18 -0400
  Re: A Little Help Here? all2001@spambog.com (Wolfgang Allinger) - 2015-05-12 08:37 -0300
    Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-12 20:18 -0400
      Re: A Little Help Here? all2001@spambog.com (Wolfgang Allinger) - 2015-05-12 23:08 -0300
        Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-13 03:31 -0400
          Re: A Little Help Here? all2001@spambog.com (Wolfgang Allinger) - 2015-05-13 07:32 -0300
            Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-13 16:47 -0400
              Re: A Little Help Here? all2001@spambog.com (Wolfgang Allinger) - 2015-05-13 17:48 -0300
                Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-13 22:01 -0400
  Re: A Little Help Here? Tessa Bonting <tessa.bonting@gmail.com> - 2015-05-13 08:56 -0700
  Re: A Little Help Here? Tessa Bonting <tessa.bonting@gmail.com> - 2015-05-13 09:22 -0700
    Re: A Little Help Here? rickman <gnuarm@gmail.com> - 2015-05-13 16:56 -0400

csiph-web