Stare semestry, niepoukladane

1 files changed, 16 insertions, 0 deletions

diff --git a/Semestr 3/anm/l10.hs b/Semestr 3/anm/l10.hs
new file mode 100644
index 0000000..dfccaf4
--- /dev/null
+++ b/Semestr 3/anm/l10.hs
@@ -0,0 +1,16 @@
+-- Zadanie 1
+
+int :: (String -> a) -> String -> Integer -> a
+int f s n = f (s ++ show n)
+
+str :: (String -> a) -> String -> String -> a
+str f s1 s2 = f (s1 ++ s2)
+
+lit :: String -> (String -> a) -> String -> a
+lit s f s2 = f (s2 ++ s)
+
+(^^) :: (b -> c) -> (a -> b) -> a -> c
+(^^) = (.)
+
+sprintf :: ((String -> a) -> String -> String) -> String
+sprintf f = f id ""
\ No newline at end of file