From 76718c0ec3717c4f9e5b0f659ab829f4b92419d2 Mon Sep 17 00:00:00 2001
From: Miguel <m.i@gmx.at>
Date: Sat, 2 Mar 2019 12:50:34 +0100
Subject: playing with some haskell code

---
 hask-io/mini.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 hask-io/mini.c

(limited to 'hask-io/mini.c')

diff --git a/hask-io/mini.c b/hask-io/mini.c
new file mode 100644
index 0000000..eb5ba46
--- /dev/null
+++ b/hask-io/mini.c
@@ -0,0 +1,14 @@
+#include <stdio.h>
+int main(){
+    char buf[2048];
+    int a=0;
+    while(1){
+        size_t sz=fread(&buf,1,2048,stdin);
+        if(!sz)break;
+        for(size_t i=0;i<sz;i++){
+            a+=buf[i];
+            a%=256;
+        }
+    }
+    printf("%i\n",a);
+}
-- 
cgit v1.2.3