Work on gibs and chasms

2025-08-01 09:39:13 +01:00
parent 7110ddb7a6
commit eeb7c8ac88
22 changed files with 586 additions and 373 deletions
@@ -40,3 +40,7 @@ p = 10 ^ (15 :: Int)

 instance (ShortShow a, ShortShow b) => ShortShow (a, b) where
    shortShow (a, b) = '(' : shortShow a ++ "," ++ shortShow b ++ ")"
+
+instance (ShortShow a, ShortShow b, ShortShow c) => ShortShow (a, b, c) where
+    shortShow (a, b, c)
+        = '(' : shortShow a ++ "," ++ shortShow b ++ "," ++ shortShow c ++ ")"