fizzbuzz redux

From	"WJ" <w_a_x_man@yahoo.com>
Newsgroups	comp.lang.forth
Subject	fizzbuzz redux
Date	2015-03-19 21:54 +0000
Organization	A noiseless patient Spider
Message-ID	<mefgi0$nvr$1@dont-email.me> (permalink)

Show all headers | View raw

Oforth:

func: rank(n) { n 3 rem ==0  n 5 rem ==0 2 *  + abs ++}

seq(100)
apply( #[[ ,$fizz, $buzz, $fizzbuzz] dup at(first rank) println])

1
2
fizz
4
buzz
fizz
7
8
fizz
buzz
11
fizz
13
14
fizzbuzz
...

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

Thread

fizzbuzz redux "WJ" <w_a_x_man@yahoo.com> - 2015-03-19 21:54 +0000
  Re: fizzbuzz redux Michael Barry <barrym95838@yahoo.com> - 2015-03-20 01:09 -0700
    Re: fizzbuzz redux hughaguilar96@gmail.com - 2015-03-21 20:54 -0700
  Re: fizzbuzz redux "WJ" <w_a_x_man@yahoo.com> - 2015-03-24 04:02 +0000

csiph-web