Mercurial > hg > toys

changeset 14:4282cc25e35c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add C code
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Sun, 17 Aug 2014 11:21:46 -0400
parents 484f9cac6a1f
children f55bfa72951f
files c/sier.c c/sierp.c haskell/primes.hs
diffstat 3 files changed, 18 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
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
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  */
+
--- 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