Add the first post in CS325 series

code/cs325-langs/sols/hw1.lang

@@ -17,4 +17,3 @@ sorted(xs) = sorted(xs[0]) ++ [xs[1]] ++ sorted(xs[2]);
 search(xs, k) = |_search(xs, k)| != 0;
 insert(xs, k) = _insert(k, _search(xs, k));
 _insert(k, xs) = if |xs| == 0 then xs << [] << k << [] else xs
-

code/cs325-langs/src/LanguageOne.hs

@@ -270,14 +270,13 @@ type Translator = Control.Monad.State.State (Map.Map String [String], Int)
 
 currentTemp :: Translator String
 currentTemp = do
-    (_, t) <- get
+    t <- gets snd
     return $ "temp" ++ show t
 
 incrementTemp :: Translator String
 incrementTemp = do
-    (vs, t) <- get
-    put (vs, t+1)
-    return $ "temp" ++ show t
+    modify (second (+1))
+    currentTemp
 
 hasLambda :: Expr -> Bool
 hasLambda (ListLiteral es) = any hasLambda es