Revised clockhands and permutations and added anagrams

Author: Undalevein

nim/anagrams.nim

@@ -0,0 +1,20 @@
+import std/[strutils, sequtils, cmdline]
+
+type InputArgumentError* = object of IOError
+
+proc generatePermutations(a: var seq[char], n: int) =
+  if n <= 0:
+    echo a.join("")
+  else:
+    for i in 0 ..< n:
+      generatePermutations(a, n - 1)
+      let j = if n mod 2 == 0: 0 else: i
+      swap(a[j], a[n])
+    generatePermutations(a, n - 1)
+
+when isMainModule:
+  var args = commandLineParams()
+  if len(args) != 1:
+    raise newException(InputArgumentError, "ERROR: There must be exactly 1 argument.")
+  var letters = toSeq(args[0].items)
+  generatePermutations(letters, len(letters) - 1)

nim/clockhands.nim

@@ -1,8 +1,9 @@
 import std/strformat
 
 for i in 0..10:
-  let t = (43200 * i + 21600) div 11
-  let h = t div 3600
-  let m = (t div 60) mod 60
-  let s = t mod 60
+  let 
+    t = (43200 * i + 21600) div 11
+    h = t div 3600
+    m = (t div 60) mod 60
+    s = t mod 60
   echo &"{(if h == 0: 12 else: h):02}:{m:02}:{s:02}"

nim/permutations.nim

@@ -1,6 +1,6 @@
 import std/[strutils, cmdline]
 
-type InputArgumentError* = object of Exception
+type InputArgumentError* = object of IOError
 
 proc printPermutations(a: var seq[string], n: int) =
   if n <= 0:

nim/test.ps1

@@ -9,6 +9,9 @@ function Assert-MatchTests {
 }
 
 $Error.clear()
+nim c "$PSScriptRoot\anagrams.nim" && . "$PSScriptRoot\anagrams.exe" rats |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\rats_heap_expected") |
+    Assert-MatchTests &&
 nim c "$PSScriptRoot\clockhands.nim" && . "$PSScriptRoot\clockhands.exe" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
     Assert-MatchTests &&