2015-02-20 00:35:01 -05:00
|
|
|
PROCEDURE Main()
|
|
|
|
|
|
|
|
|
|
LOCAL n
|
|
|
|
|
LOCAL cFB
|
|
|
|
|
|
|
|
|
|
FOR n := 1 TO 100
|
2013-04-10 16:57:12 -07:00
|
|
|
cFB := ""
|
2015-02-20 00:35:01 -05:00
|
|
|
AEval( { { 3, "Fizz" }, { 5, "Buzz" } }, {|x| cFB += iif( ( n % x[ 1 ] ) == 0, x[ 2 ], "" ) } )
|
|
|
|
|
?? iif( cFB == "", LTrim( Str( n ) ), cFB ) + iif( n == 100, ".", ", " )
|
|
|
|
|
NEXT
|
|
|
|
|
|
|
|
|
|
RETURN
|
