RosettaCodeData/Task/FizzBuzz/V/fizzbuzz-2.v

2 lines
83 B
Coq

[seq [] swap dup [zero? not] [rolldown [dup] dip cons rollup pred] while pop pop].