12 lines
280 B
Text
12 lines
280 B
Text
PROCEDURE Main()
|
|
|
|
LOCAL n
|
|
LOCAL cFB
|
|
|
|
FOR n := 1 TO 100
|
|
cFB := ""
|
|
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
|