dbohdan · July 23, 2021 09:30 · Mar 9, 2018 · Jan 1, 2015 · Jan 1, 2015 · Dec 11, 2014
diff --git a/grades.tcl b/grades.tcl
@@ -7,30 +7,30 @@ sqlite3 db :memory:
 db eval {CREATE TABLE grades(name TEXT PRIMARY KEY, grade TEXT)}
 
 foreach {name grade} [::fileutil::cat grades.txt] {
-	if {![regexp {[A-F][+-]?} $grade]} {
-		puts "Can't parse pair '$name $grade'"
-		exit 1
-	}
-	db eval {INSERT INTO grades VALUES ($name, $grade)}
+    if {![regexp {[A-F][+-]?} $grade]} {
+        puts "Can't parse pair '$name $grade'"
+        exit 1
+    }
+    db eval {INSERT INTO grades VALUES ($name, $grade)}
 }
 
-puts "Zsófia's grade: [db eval {SELECT grade FROM grades WHERE name="Zsófia"}]"
+puts "Zsófia's grade: [db eval {SELECT grade FROM grades WHERE name='Zsófia'}]"
 
 puts "List of students with a failing grade:"
 puts "  [join [
-	db eval {SELECT name FROM grades WHERE grade >= "E" ORDER BY grade}
-] ", "]"
+    db eval {SELECT name FROM grades WHERE grade >= 'E' ORDER BY grade}
+] {, }]"
 
 set grades [db eval {
-	SELECT DISTINCT trim(grade, "+-") FROM grades ORDER BY grade
+    SELECT DISTINCT trim(grade, '+-') FROM grades ORDER BY grade
 }]
 puts "Distribution of grades by letter:"
 foreach grade $grades {
-	puts -nonewline "  $grade: "
-	set count [db eval {
-		SELECT count(name) FROM grades WHERE trim(grade, "+-")=$grade
-	}]
-	puts -nonewline "$count student"
-	if {$count > 1} { puts -nonewline "s" }
-	puts ""
+    puts -nonewline "  $grade: "
+    set count [db eval {
+        SELECT count(name) FROM grades WHERE trim(grade, '+-')=$grade
+    }]
+    puts -nonewline "$count student"
+    if {$count > 1} { puts -nonewline s }
+    puts {}
 }
diff --git a/grades.tcl b/grades.tcl
@@ -16,10 +16,10 @@ foreach {name grade} [::fileutil::cat grades.txt] {
 
 puts "Zsófia's grade: [db eval {SELECT grade FROM grades WHERE name="Zsófia"}]"
 
-puts "List of students with a failing grade:";
-puts [join [
+puts "List of students with a failing grade:"
+puts "  [join [
 	db eval {SELECT name FROM grades WHERE grade >= "E" ORDER BY grade}
-] ", "]
+] ", "]"
 
 set grades [db eval {
 	SELECT DISTINCT trim(grade, "+-") FROM grades ORDER BY grade

diff --git a/output.txt b/output.txt
@@ -1,8 +1,8 @@
 Zsófia's grade: B+
 List of students with a failing grade:
-João, Emma
+  João, Emma
 Distribution of grades by letter:
- A: 2 students
- B: 5 students
- D: 1 student
- F: 2 students
+  A: 2 students
+  B: 5 students
+  D: 1 student
+  F: 2 students
diff --git a/output.txt b/output.txt
@@ -0,0 +1,8 @@
+Zsófia's grade: B+
+List of students with a failing grade:
+João, Emma
+Distribution of grades by letter:
+ A: 2 students
+ B: 5 students
+ D: 1 student
+ F: 2 students
diff --git a/grades.tcl b/grades.tcl
@@ -6,8 +6,6 @@ package require fileutil
 sqlite3 db :memory:
 db eval {CREATE TABLE grades(name TEXT PRIMARY KEY, grade TEXT)}
 
-db function gradeToNumber {}
-
 foreach {name grade} [::fileutil::cat grades.txt] {
 	if {![regexp {[A-F][+-]?} $grade]} {
 		puts "Can't parse pair '$name $grade'"

diff --git a/grades.p6 b/grades.p6
@@ -1,15 +0,0 @@
-#!/usr/bin/env perl6
-
-my %grade = "grades.txt".IO.lines.map: {
-    m:s/^ (\w+) (<[A..F]><[+-]>?) $/ or die "Can't parse line '$_'";
-    ~$0 => ~$1
-};
-
-say "Zsófia's grade: %grade<Zsófia>";
-
-say "List of students with a failing grade:";
-say "  " ~ %grade.grep(*.value ge "E")».key.join(', ');
-
-say "Distribution of grades by letter:";
-say "  {.key}: {+.value} student{"s" if .value != 1}"
-    for %grade.classify(*.value.comb[0]).sort(*.key);

diff --git a/grades.pl b/grades.pl
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-use warnings;
-use strict;
-use feature 'say';
-use utf8;
-binmode STDOUT, ":utf8";
-
-open my $fh, '<:utf8', "grades.txt" or die "Failed to open file: $!";
-my %grade;
-
-while (<$fh>) {
-    m/^ (\w+) \s+ ([A-F][+-]?) $/x or die "Can't parse line '$_'";
-    $grade{$1} = $2;
-};
-
-say "Zsófia's grade: $grade{Zsófia}";
-
-say "List of students with a failing grade:";
-say "  " . join ", ", grep { $grade{$_} ge "E" } keys %grade;
-
-say "Distribution of grades by letter:";
-my %freq;
-$freq{substr $grade{$_}, 0, 1}++ for keys %grade;
-say "  $_: $freq{$_} student".($freq{$_} != 1 ? "s" : "")
-    for sort keys %freq;
-

diff --git a/grades.tcl b/grades.tcl
@@ -0,0 +1,38 @@
+#!/usr/bin/env tclsh
+
+package require sqlite3
+package require fileutil
+
+sqlite3 db :memory:
+db eval {CREATE TABLE grades(name TEXT PRIMARY KEY, grade TEXT)}
+
+db function gradeToNumber {}
+
+foreach {name grade} [::fileutil::cat grades.txt] {
+	if {![regexp {[A-F][+-]?} $grade]} {
+		puts "Can't parse pair '$name $grade'"
+		exit 1
+	}
+	db eval {INSERT INTO grades VALUES ($name, $grade)}
+}
+
+puts "Zsófia's grade: [db eval {SELECT grade FROM grades WHERE name="Zsófia"}]"
+
+puts "List of students with a failing grade:";
+puts [join [
+	db eval {SELECT name FROM grades WHERE grade >= "E" ORDER BY grade}
+] ", "]
+
+set grades [db eval {
+	SELECT DISTINCT trim(grade, "+-") FROM grades ORDER BY grade
+}]
+puts "Distribution of grades by letter:"
+foreach grade $grades {
+	puts -nonewline "  $grade: "
+	set count [db eval {
+		SELECT count(name) FROM grades WHERE trim(grade, "+-")=$grade
+	}]
+	puts -nonewline "$count student"
+	if {$count > 1} { puts -nonewline "s" }
+	puts ""
+}
diff --git a/grades_rakudofix.p6 b/grades_rakudofix.p6
@@ -1,15 +0,0 @@
-#!/usr/bin/env perl6
-
-my %grade = "grades.txt".IO.lines.map: {
-    m:s/^ (\w+) (<[A..F]><[+-]>?) $/ or die "Can't parse line '$_'";
-    ~$0 => ~$1
-};
-
-say "Zsófia's grade: %grade<Zsófia>";
-
-say "List of students with a failing grade:";
-say "  " ~ %grade.grep(*.value ge "E")».key.join(', ');
-
-say "Distribution of grades by letter:";
-say "  $(.key): $(+.value) student$("s" if .value != 1)"
-    for %grade.classify(*.value.comb[0]).sort(*.key);

diff --git a/grades_rakudofix.p6 b/grades_rakudofix.p6
@@ -8,7 +8,7 @@ my %grade = "grades.txt".IO.lines.map: {
 say "Zsófia's grade: %grade<Zsófia>";
 
 say "List of students with a failing grade:";
-say "  " ~ %grade.grep(*.value ge "E")>>.key.join(', ');
+say "  " ~ %grade.grep(*.value ge "E")».key.join(', ');
 
 say "Distribution of grades by letter:";
 say "  $(.key): $(+.value) student$("s" if .value != 1)"

diff --git a/grades.p6 b/grades.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+
+my %grade = "grades.txt".IO.lines.map: {
+    m:s/^ (\w+) (<[A..F]><[+-]>?) $/ or die "Can't parse line '$_'";
+    ~$0 => ~$1
+};
+
+say "Zsófia's grade: %grade<Zsófia>";
+
+say "List of students with a failing grade:";
+say "  " ~ %grade.grep(*.value ge "E")».key.join(', ');
+
+say "Distribution of grades by letter:";
+say "  {.key}: {+.value} student{"s" if .value != 1}"
+    for %grade.classify(*.value.comb[0]).sort(*.key);
diff --git a/grades.pl b/grades.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use feature 'say';
+use utf8;
+binmode STDOUT, ":utf8";
+
+open my $fh, '<:utf8', "grades.txt" or die "Failed to open file: $!";
+my %grade;
+
+while (<$fh>) {
+    m/^ (\w+) \s+ ([A-F][+-]?) $/x or die "Can't parse line '$_'";
+    $grade{$1} = $2;
+};
+
+say "Zsófia's grade: $grade{Zsófia}";
+
+say "List of students with a failing grade:";
+say "  " . join ", ", grep { $grade{$_} ge "E" } keys %grade;
+
+say "Distribution of grades by letter:";
+my %freq;
+$freq{substr $grade{$_}, 0, 1}++ for keys %grade;
+say "  $_: $freq{$_} student".($freq{$_} != 1 ? "s" : "")
+    for sort keys %freq;
+
diff --git a/grades.txt b/grades.txt
@@ -0,0 +1,10 @@
+Peter	B
+Celine	A-
+Zsófia	B+
+João	F
+Maryam	B+
+秀英	B-
+Finn	D+
+Aarav	A
+Emma	F
+Omar	B
diff --git a/grades_rakudofix.p6 b/grades_rakudofix.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+
+my %grade = "grades.txt".IO.lines.map: {
+    m:s/^ (\w+) (<[A..F]><[+-]>?) $/ or die "Can't parse line '$_'";
+    ~$0 => ~$1
+};
+
+say "Zsófia's grade: %grade<Zsófia>";
+
+say "List of students with a failing grade:";
+say "  " ~ %grade.grep(*.value ge "E")>>.key.join(', ');
+
+say "Distribution of grades by letter:";
+say "  $(.key): $(+.value) student$("s" if .value != 1)"
+    for %grade.classify(*.value.comb[0]).sort(*.key);