Add /r/dailyprogrammer Challenge #306 Easy

1 files changed, 26 insertions, 0 deletions

diff --git a/daily/306easy/panroman.pas b/daily/306easy/panroman.pas
new file mode 100644
index 0000000..5721f62
--- /dev/null
+++ b/daily/306easy/panroman.pas
@@ -0,0 +1,26 @@
+uses strutils;
+
+var
+  i: int16;
+
+function ivxlcdm(s: string): boolean;
+  var
+    a: array['C'..'X'] of int8;
+    c: char;
+
+  begin
+    for c in 'IVXLCDM' do
+      a[c] := 0;
+    for c in s do
+      inc(a[c]);
+    for c in 'IVXLCDM' do
+      if a[c] <> 1 then
+        exit(false);
+    ivxlcdm := true
+  end;
+
+begin
+  for i := 1000 to 2000 do
+    if ivxlcdm(inttoroman(i)) then
+      writeln(i)
+end.