# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@octave.org>
# Date 1408288906 14400
# Node ID 4282cc25e35c064445693dfd16d29829183bbfcf
# Parent  484f9cac6a1fdfcdcb380749d458fe15e6d530b8
Add C code

diff --git a/c/sier.c b/c/sier.c
new file mode 100644
--- /dev/null
+++ b/c/sier.c
@@ -0,0 +1,1 @@
+int main(void) {  char o[80*80]={0};  int r,i,p=6400,s=12800,d[4]={0,80,0,40},  c[4]={0,40,80,40};  for (i=0; i<s+p; i++) {  if(i<s){  r=rand()%3;  o[c[3]*80+d[3]]++,  c[3]=((c[3]+c[r])/2),d[3]=((d[3]+d[r])/2);  }  else{  write(1," .,'\":;[]{}%$#\n"+((i%80)?(o[i-s]<14?o[i-s]:13):14), 1);  }  }return(0); } /* gcc -o sier sier.c; ./sier; jls 2004 heh */  
\ No newline at end of file
diff --git a/c/sierp.c b/c/sierp.c
new file mode 100644
--- /dev/null
+++ b/c/sierp.c
@@ -0,0 +1,16 @@
+int main(void) { 
+  char o[80*80]={0};
+  int r,i,p=6400,s=12800,d[4]={0,80,0,40},
+    c[4]={0,40,80,40}; 
+    for (i=0; i<s+p; i++) { 
+      if(i<s){
+	r=rand()%3;
+	o[c[3]*80+d[3]]++,
+	  c[3]=((c[3]+c[r])/2),d[3]=((d[3]+d[r])/2);
+      }
+      else{
+	write(1," .,'\":;[]{}%$#\n"+((i%80)?(o[i-s]<14?o[i-s]:13):14), 1); 
+      }
+    }return(0);
+} /* gcc -o sier sier.c; ./sier;  jls 2004 heh  */
+
diff --git a/haskell/primes.hs b/haskell/primes.hs
--- a/haskell/primes.hs
+++ b/haskell/primes.hs
@@ -8,4 +8,4 @@
 hailstone 1 = [1]
 hailstone n = if n `mod` 2 == 0
               then n:hailstone (n `div` 2)
-              else n:hailstone (3*n+1)
\ No newline at end of file
+              else n:hailstone ((3*n+1) `div` 2)
\ No newline at end of file