RosettaCodeData/Task/FizzBuzz/ABAP/fizzbuzz-2.abap

6 lines
544 B
ABAP
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
cl_demo_output=>display( VALUE stringtab( FOR i = 1 WHILE i <= 100 ( COND #( LET m3 = i MOD 3 m5 = i MOD 5 IN
WHEN m3 = 0 AND m5 = 0 THEN |FIZZBUZZ|
WHEN m3 = 0 THEN |FIZZ|
WHEN m5 = 0 THEN |BUZZ|
ELSE i ) ) ) ).