YAPC::EU 2018 Glasgow Update!

Task/Identity-matrix/Burlesque/identity-matrix-3.blq

@@ -0,0 +1 @@
+blsq ) 6 ^^^^10\/**XXcy\/co.+sp

Task/Identity-matrix/Factor/identity-matrix.factor

@@ -0,0 +1,10 @@
+USE: math.matrices
+IN: scratchpad 6 identity-matrix .
+{
+    { 1 0 0 0 0 0 }
+    { 0 1 0 0 0 0 }
+    { 0 0 1 0 0 0 }
+    { 0 0 0 1 0 0 }
+    { 0 0 0 0 1 0 }
+    { 0 0 0 0 0 1 }
+}

Task/Identity-matrix/Haskell/identity-matrix-4.hs

@@ -2,6 +2,3 @@ idMatrix :: Int -> [[Int]]
 idMatrix n =
   let xs = [1 .. n]
   in xs >>= \x -> [xs >>= \y -> [fromEnum (x == y)]]
-
-main :: IO ()
-main = (putStr . unlines) $ fmap (unwords . fmap show) (idMatrix 5)

Task/Identity-matrix/Haskell/identity-matrix-5.hs

@@ -0,0 +1,7 @@
+idMatrix :: Int -> [[Int]]
+idMatrix n =
+  let xs = [1 .. n]
+  in (\x -> fromEnum . (x ==) <$> xs) <$> xs
+
+main :: IO ()
+main = (putStr . unlines) $ unwords . fmap show <$> idMatrix 5