Data update

Task/Merge-and-aggregate-datasets/FreeBASIC/merge-and-aggregate-datasets.basic

@@ -0,0 +1,57 @@
+Type Patient
+    ID As String
+    LastName As String
+End Type
+
+Type Visit
+    PatientID As String
+    Fecha As String
+    Score As Single
+    HasScore As Integer
+End Type
+
+Dim As Patient patients(5)
+Dim As Visit visits(8)
+
+patients(1).ID = "1001": patients(1).LastName = "Hopper"
+patients(2).ID = "4004": patients(2).LastName = "Wirth"
+patients(3).ID = "3003": patients(3).LastName = "Kemeny"
+patients(4).ID = "2002": patients(4).LastName = "Gosling"
+patients(5).ID = "5005": patients(5).LastName = "Kurtz"
+
+visits(1).PatientID = "2002": visits(1).Fecha = "2020-09-10": visits(1).Score = 6.8: visits(1).HasScore = -1
+visits(2).PatientID = "1001": visits(2).Fecha = "2020-09-17": visits(2).Score = 5.5: visits(2).HasScore = -1
+visits(3).PatientID = "4004": visits(3).Fecha = "2020-09-24": visits(3).Score = 8.4: visits(3).HasScore = -1
+visits(4).PatientID = "2002": visits(4).Fecha = "2020-10-08": visits(4).HasScore = 0
+visits(5).PatientID = "1001": visits(5).Fecha = ""          : visits(5).Score = 6.6: visits(5).HasScore = -1
+visits(6).PatientID = "3003": visits(6).Fecha = "2020-11-12": visits(6).HasScore = 0
+visits(7).PatientID = "4004": visits(7).Fecha = "2020-11-05": visits(7).Score = 7.0: visits(7).HasScore = -1
+visits(8).PatientID = "1001": visits(8).Fecha = "2020-11-19": visits(8).Score = 5.3: visits(8).HasScore = -1
+
+Print "| PATIENT_ID | LASTNAME | LAST_VISIT | SCORE_SUM | SCORE_AVG |"
+For i As Integer = 1 To 5
+    Dim As String lastVisit = ""
+    Dim As Single sum = 0
+    Dim As Integer numScores = 0
+    For j As Integer = 1 To 8
+        If patients(i).ID = visits(j).PatientID Then
+            If visits(j).HasScore Then
+                sum += visits(j).Score
+                numScores += 1
+            End If
+            If visits(j).Fecha > lastVisit Then
+                lastVisit = visits(j).Fecha
+            End If
+        End If
+    Next j
+    Print "|       "; patients(i).ID; " | ";
+    Print Using "\      \ | \        \ | "; patients(i).LastName; lastVisit;
+    If numScores > 0 Then
+        Print Using "#######.# | #######.#"; sum; (sum / Csng(numScores));
+    Else
+        Print "          |          ";
+    End If
+    Print " |"
+Next i
+
+Sleep