Artifact 8920e9fd1d3980816af06629a7da5aecca52ecb2

• File sample/fizzbuzz.pmy
  • 2010-11-24 12:14:00 - part of checkin [3ae09b8cbf] on branch trunk - changed if-then-else syntax (user: kinaba) [annotate]

     1  #
     2  # Not at all a good example of the usage of layers, but anyway...
     3  #
     4  
     5  @@3(x){x};
     6  @@5(x){x};
     7  @@15(x){x};
     8  def incr(x) { x+1 };
     9  @ 3 incr(x) {@value( if(@ 3(x)+1< 3)then@ 3(x)+1 else 0 )};
    10  @ 5 incr(x) {@value( if(@ 5(x)+1< 5)then@ 5(x)+1 else 0 )};
    11  @15 incr(x) {@value( if(@15(x)+1<15)then@15(x)+1 else 0 )};
    12  
    13  def fb(n @value @3 @5 @15) {
    14    print( if @15(n): if @5(n): if @3(n): n else: "Fizz" else "Buzz" else "FizzBuzz" );
    15    fb(incr(n))
    16  };
    17  
    18  fb(0)