Completed the introductory language problems

Author: Undalevein

squirrel/anagrams.nut

@@ -0,0 +1,35 @@
+function join(a, separator = "")
+{
+    return a.reduce(@(str1, str2) str1 + separator + str2);
+}
+
+function printAnagrams(a, n)
+{
+    if (n == 0)
+    {
+        print(join(a) + "\n")
+    }
+    else
+    {
+        for (local i = 0 ; i < n ; i++)
+        {
+            printAnagrams(a, n-1)
+            local j = n % 2 == 0 ? 0 : i
+            local temp = a[j]
+            a[j] = a[n]
+            a[n] = temp
+        }
+        printAnagrams(a, n-1)
+    }
+}
+
+// Builds the input from stdin.
+local word = []
+foreach (byte in stdin.readblob(stdin.len()-2))
+{
+    word.push(byte.tochar())
+    if (byte == 32) {
+        throw "Exactly one argument is needed."
+    }
+}
+printAnagrams(word, word.len()-1)

squirrel/floating_point_mystery.nut

@@ -4,4 +4,13 @@ print((0.001 + 0.002 == 0.003) + "\n")    // Outputs true
 print((0.0001 + 0.0002 == 0.0003) + "\n")    // Outputs false
 print((0.00001 + 0.00002 == 0.00003) + "\n")    // Outputs true
 print((0.000001 + 0.000002 == 0.000003) + "\n")    // Outputs true
-print((0.0000001 + 0.0000002 == 0.0000003) + "\n")    // Outputs true
+print((0.0000001 + 0.0000002 == 0.0000003) + "\n")    // Outputs true
+print((0.00000001 + 0.00000002 == 0.00000003) + "\n")    // Outputs true
+print((0.000000001 + 0.000000002 == 0.000000003) + "\n")    // Outputs false
+print((0.0000000001 + 0.0000000002 == 0.0000000003) + "\n")    // Outputs true
+print((0.00000000001 + 0.00000000002 == 0.00000000003) + "\n")    // Outputs true
+print((0.000000000001 + 0.000000000002 == 0.000000000003) + "\n")    // Outputs true
+print((0.0000000000001 + 0.0000000000002 == 0.0000000000003) + "\n")    // Outputs true
+print((0.00000000000001 + 0.00000000000002 == 0.00000000000003) + "\n")    // Outputs true
+print((0.000000000000001 + 0.000000000000002 == 0.000000000000003) + "\n")    // Outputs false
+print((0.0000000000000001 + 0.0000000000000002 == 0.0000000000000003) + "\n")    // Outputs true

squirrel/permutations.nut

@@ -0,0 +1,40 @@
+function join(a, separator = "")
+{
+    return a.reduce(@(str1, str2) str1 + separator + str2);
+}
+
+function printPermutations(a, n)
+{
+    if (n == 0)
+    {
+        print(join(a, "\t") + "\n")
+    }
+    else
+    {
+        for (local i = 0 ; i < n ; i++)
+        {
+            printPermutations(a, n-1)
+            local j = n % 2 == 0 ? 0 : i
+            local temp = a[j]
+            a[j] = a[n]
+            a[n] = temp
+        }
+        printPermutations(a, n-1)
+    }
+}
+
+// Check stdin if it's empty.
+if (stdin.len() == 2)
+{
+    throw "At least one argument is needed."
+}
+
+// Builds the input from stdin.
+local input = ""
+foreach (byte in stdin.readblob(stdin.len()-2))
+{
+    input += byte.tochar()
+}
+
+local phrase = split(input, " ")
+printPermutations(phrase, phrase.len()-1)

squirrel/test.ps1

@@ -9,6 +9,9 @@ function Assert-MatchTests {
 }
 
 $Error.clear()
+"rats" | sq "$PSScriptRoot\anagrams.nut" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\rats_heap_expected") |
+    Assert-MatchTests &&
 sq "$PSScriptRoot\clockhands_time.nut" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
     Assert-MatchTests &&
@@ -17,9 +20,20 @@ sq "$PSScriptRoot\clockhands.nut" |
     Assert-MatchTests &&
 sq "$PSScriptRoot\floating_point_mystery.nut" &&
 sq "$PSScriptRoot\hello.nut" &&
+"I like carrots" | sq "$PSScriptRoot\permutations.nut" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\carrots_expected") |
+    Assert-MatchTests &&
+Get-Content "$PSScriptRoot\..\test\wnba_input" | 
+    sq "$PSScriptRoot\top_ten_scorers.nut" | 
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\wnba_expected") |
+    Assert-MatchTests &&
 sq "$PSScriptRoot\triple.nut" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
     Assert-MatchTests &&
+Get-Content "$PSScriptRoot\..\test\wordcount_ascii_input" | 
+    sq "$PSScriptRoot\wordcount.nut" | 
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\wordcount_ascii_expected") |
+    Assert-MatchTests &&
 ForEach-Object 'foo';
 
 if ($Error -or !$?) { 

squirrel/top_ten_scorers.nut

@@ -0,0 +1,45 @@
+class Player
+{
+
+    constructor(newTeam, newName, newAverage)
+    {
+        team = newTeam
+        name = newName
+        average = newAverage
+    }
+
+    function _tostring()
+    {
+        return format("%-22s%-4s%8.2f\n", name, team, average)
+    }
+
+    team = ""
+    name = ""
+    average = 0.0
+
+}
+
+local data = ""
+foreach (byte in stdin.readblob(stdin.len()-2))
+{
+    data += byte.tochar()
+}
+
+local players = []
+foreach (line in split(data, "\n", true))
+{
+    local playerInfo = split(line, ",")
+    local team = playerInfo[0]
+    local name = playerInfo[1]
+    local games = playerInfo[2].tofloat()
+    local points = playerInfo[3].tofloat()
+    if (games >= 15)
+        players.push(Player(team, name, points / games))
+}
+
+foreach (i, player in players.sort(@(a, b) b.average <=> a.average))
+{
+    if (i >= 10)
+        break
+    print(player)
+}

squirrel/wordcount.nut

@@ -0,0 +1,27 @@
+local input = ""
+foreach (byte in stdin.readblob(stdin.len()-2))
+{
+    input += byte.tochar()
+}
+input = input.tolower()
+
+local regex = regexp("[a-z\']+")
+local counts = {}
+local index = 0
+for (;;)
+{
+    local res = regex.search(input, index)
+    if (res == null)
+        break
+    local word = input.slice(res.begin, res.end)
+    if (word in counts)
+        counts[word]++
+    else
+        counts[word] <- 1
+    index = res.end
+}
+
+foreach (word in counts.keys().sort(@(a, b) a <=> b))
+{
+    printf("%s %d\n", word, counts[word])
+}