Sha256: 77ff87bd68b3dbe31a7e070110f16df31f36d91287009e16219c7ae9b9df3513
Contents?: true
Size: 490 Bytes
Versions: 283
Compression:
Stored size: 490 Bytes
Contents
unit uRaindrops;
interface
type
Raindrops = class
class function Convert(aNumber: integer): string; static;
end;
implementation
uses System.SysUtils;
class function Raindrops.Convert(aNumber: integer): string;
begin
result := '';
if aNumber mod 3 = 0 then
result := result + 'Pling';
if aNumber mod 5 = 0 then
result := result + 'Plang';
if aNumber mod 7 = 0 then
result := result + 'Plong';
if result = '' then
result := aNumber.ToString;
end;
end.
Version data entries
283 entries across 283 versions & 1 rubygems