*** empty log message ***

website/websites/u32/code/knucleotide.5.scala.log

@@ -0,0 +1,54 @@
+
+Sun, 08 May 2011 16:40:17 GMT
+
+MAKE:
+mv knucleotide.scala-5.scala knucleotide.scala
+/usr/local/src/scala-2.8.1.final/bin/scalac knucleotide.scala
+7.95s to complete and log all make actions
+
+COMMAND LINE:
+env JAVA_OPTS=-Xmx3G /usr/local/src/jdk1.6.0_24/bin/java -server  -Xbootclasspath/a:/usr/local/src/scala-2.8.1.final/lib/scala-library.jar knucleotide 0 < knucleotide-input250000.txt
+
+UNEXPECTED OUTPUT 
+
+23,27c23,27
+< 14717   GGT
+< 4463    GGTA
+< 472     GGTATT
+< 9       GGTATTTTAATT
+< 9       GGTATTTTAATTTATAGT
+---
+> 14717	GGT
+> 4463	GGTA
+> 472	GGTATT
+> 9	GGTATTTTAATT
+> 9	GGTATTTTAATTTATAGT
+
+PROGRAM OUTPUT:
+A 30.298
+T 30.157
+C 19.793
+G 19.752
+
+AA 9.177
+TA 9.137
+AT 9.136
+TT 9.094
+AC 6.000
+CA 5.999
+GA 5.986
+AG 5.985
+TC 5.970
+CT 5.970
+GT 5.957
+TG 5.956
+CC 3.915
+CG 3.910
+GC 3.908
+GG 3.902
+
+14717   GGT
+4463    GGTA
+472     GGTATT
+9       GGTATTTTAATT
+9       GGTATTTTAATTTATAGT

website/websites/u32/code/mandelbrot.4.fpascal.code

@@ -0,0 +1,118 @@
+<span class="hl com">{ The Computer Language Benchmarks Game</span>
+<span class="hl com">  http://shootout.alioth.debian.org</span>
+<span class="hl com"></span>
+<span class="hl com">  contributed by Ales Katona</span>
+<span class="hl com">  modified by Vincent Snijders</span>
+<span class="hl com">  optimized and multithreaded by Jean de La Taille</span>
+<span class="hl com">  modified by Jeppe Johansen</span>
+<span class="hl com">}</span>
+
+<span class="hl kwa">program</span> mandelbrot<span class="hl sym">;</span>
+
+<span class="hl kwa">uses</span>
+  <span class="hl com">{$ifdef unix}</span>cthreads<span class="hl sym">,</span><span class="hl com">{$endif}</span>
+  sysUtils<span class="hl sym">,</span> math<span class="hl sym">;</span>
+
+<span class="hl kwa">const</span>
+  Limit <span class="hl sym">=</span> <span class="hl num">4.0</span><span class="hl sym">;</span>
+  ThreadCount <span class="hl sym">=</span> <span class="hl num">4</span><span class="hl sym">;</span>
+
+<span class="hl kwa">var</span>
+  n<span class="hl sym">,</span> dimx <span class="hl sym">:</span> <span class="hl kwb">longint</span><span class="hl sym">;</span>
+  nInv<span class="hl sym">:</span> <span class="hl kwb">double</span><span class="hl sym">;</span>
+  TextBuf<span class="hl sym">:</span> pbyte<span class="hl sym">;</span>
+
+  yCounter<span class="hl sym">:</span> <span class="hl kwb">longint</span><span class="hl sym">;</span>
+
+<span class="hl kwa">function</span> <span class="hl kwd">subThread</span><span class="hl sym">(</span>p<span class="hl sym">:</span> <span class="hl kwb">pointer</span><span class="hl sym">) :</span> ptrint<span class="hl sym">;</span>
+<span class="hl kwa">var</span>
+  x<span class="hl sym">,</span> y<span class="hl sym">,</span> i<span class="hl sym">,</span> bits<span class="hl sym">,</span> bit<span class="hl sym">,</span> buf_index<span class="hl sym">:</span> <span class="hl kwb">Longint</span><span class="hl sym">;</span>
+  Zr<span class="hl sym">,</span> Zi<span class="hl sym">,</span> Ti<span class="hl sym">,</span> Tr<span class="hl sym">,</span> Cr<span class="hl sym">,</span> Ci <span class="hl sym">:</span> <span class="hl kwb">Double</span><span class="hl sym">;</span>
+<span class="hl kwa">begin</span>
+  <span class="hl kwa">while</span> <span class="hl kwb">true</span> <span class="hl kwa">do</span>
+  <span class="hl kwa">begin</span>
+    y <span class="hl sym">:=</span> <span class="hl kwd">interlockedincrement</span><span class="hl sym">(</span>yCounter<span class="hl sym">)-</span><span class="hl num">1</span><span class="hl sym">;</span>
+
+    <span class="hl kwa">if</span> y <span class="hl sym">&gt;=</span> n <span class="hl kwa">then</span> break<span class="hl sym">;</span>
+
+    buf_index <span class="hl sym">:=</span> y<span class="hl sym">*</span>dimx<span class="hl sym">;</span>
+
+    <span class="hl kwd">prefetch</span><span class="hl sym">(</span>TextBuf<span class="hl sym">[</span>buf_index<span class="hl sym">]);</span>
+
+    bit <span class="hl sym">:=</span> <span class="hl num">128</span><span class="hl sym">;</span> <span class="hl slc">// 1000 0000</span>
+
+    bits <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+    Ci <span class="hl sym">:= ((</span>y <span class="hl sym">+</span> y<span class="hl sym">) *</span> nInv<span class="hl sym">) -</span> <span class="hl num">1.0</span><span class="hl sym">;</span>
+    <span class="hl kwa">for</span> x <span class="hl sym">:=</span> <span class="hl num">0</span> <span class="hl kwa">to</span> n<span class="hl sym">-</span><span class="hl num">1</span> <span class="hl kwa">do</span>
+    <span class="hl kwa">begin</span>
+      <span class="hl slc">//---------------------------</span>
+
+      Zr <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+      Zi <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+      Tr <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+      Ti <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+      Cr <span class="hl sym">:= ((</span>x <span class="hl sym">+</span> x<span class="hl sym">) *</span> nInv<span class="hl sym">) -</span> <span class="hl num">1.5</span><span class="hl sym">;</span>
+      <span class="hl kwa">for</span> i <span class="hl sym">:=</span> <span class="hl num">1</span> <span class="hl kwa">to</span> <span class="hl num">50</span> <span class="hl kwa">do</span>
+      <span class="hl kwa">begin</span>
+        Zi <span class="hl sym">:=</span> <span class="hl num">2.0</span> <span class="hl sym">*</span> Zr <span class="hl sym">*</span> Zi <span class="hl sym">+</span> Ci<span class="hl sym">;</span>
+        Zr <span class="hl sym">:=</span> Tr <span class="hl sym">-</span> Ti <span class="hl sym">+</span> Cr<span class="hl sym">;</span>
+        Ti <span class="hl sym">:=</span> Zi <span class="hl sym">*</span> Zi<span class="hl sym">;</span>
+        Tr <span class="hl sym">:=</span> Zr <span class="hl sym">*</span> Zr<span class="hl sym">;</span>
+        <span class="hl kwa">if</span> <span class="hl sym">((</span>Tr <span class="hl sym">+</span> Ti<span class="hl sym">) &gt;</span> limit<span class="hl sym">)</span> <span class="hl kwa">then</span>
+        <span class="hl kwa">begin</span>
+          bits <span class="hl sym">:=</span> bits <span class="hl kwa">or</span> bit<span class="hl sym">;</span>
+          break<span class="hl sym">;</span>
+        <span class="hl kwa">end</span><span class="hl sym">;</span>
+      <span class="hl kwa">end</span><span class="hl sym">;</span>
+      <span class="hl slc">//---------------------------</span>
+
+      bit <span class="hl sym">:=</span> bit <span class="hl sym">&gt;&gt;</span> <span class="hl num">1</span><span class="hl sym">;</span>
+      <span class="hl kwa">if</span> <span class="hl sym">(</span>bit <span class="hl sym">=</span> <span class="hl num">0</span><span class="hl sym">)</span> <span class="hl kwa">then</span>
+      <span class="hl kwa">begin</span>
+        TextBuf<span class="hl sym">[</span>buf_index<span class="hl sym">] :=</span> <span class="hl kwa">not</span> bits<span class="hl sym">;</span>
+        <span class="hl kwd">inc</span><span class="hl sym">(</span>buf_index<span class="hl sym">);</span>
+
+        bits <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+        bit <span class="hl sym">:=</span> <span class="hl num">128</span><span class="hl sym">;</span>
+      <span class="hl kwa">end</span><span class="hl sym">;</span>
+    <span class="hl kwa">end</span><span class="hl sym">;</span>
+  <span class="hl kwa">end</span><span class="hl sym">;</span>
+  subThread <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+<span class="hl kwa">end</span><span class="hl sym">;</span>
+
+<span class="hl kwa">procedure</span> run<span class="hl sym">;</span>
+<span class="hl kwa">var</span>
+  i<span class="hl sym">,</span> t<span class="hl sym">,</span> buf_index<span class="hl sym">:</span> <span class="hl kwb">Longint</span><span class="hl sym">;</span>
+  tt <span class="hl sym">:</span> <span class="hl kwa">array</span><span class="hl sym">[</span><span class="hl num">0</span><span class="hl sym">..</span>ThreadCount<span class="hl sym">-</span><span class="hl num">1</span><span class="hl sym">]</span> <span class="hl kwa">of</span> TThreadID<span class="hl sym">;</span>
+<span class="hl kwa">begin</span>
+  nInv <span class="hl sym">:=</span> <span class="hl num">1</span><span class="hl sym">/</span>n<span class="hl sym">;</span>
+
+  <span class="hl kwa">for</span> i <span class="hl sym">:=</span> <span class="hl num">0</span> <span class="hl kwa">to</span> ThreadCount<span class="hl sym">-</span><span class="hl num">1</span> <span class="hl kwa">do</span>
+    tt<span class="hl sym">[</span>i<span class="hl sym">] :=</span> <span class="hl kwd">BeginThread</span><span class="hl sym">(&#64;</span>subThread<span class="hl sym">,</span> <span class="hl kwa">nil</span><span class="hl sym">);</span>
+
+  <span class="hl kwa">for</span> i <span class="hl sym">:=</span> <span class="hl num">0</span> <span class="hl kwa">to</span> ThreadCount<span class="hl sym">-</span><span class="hl num">1</span> <span class="hl kwa">do</span>
+    <span class="hl kwd">WaitForThreadTerminate</span><span class="hl sym">(</span>tt<span class="hl sym">[</span>i<span class="hl sym">],</span> <span class="hl num">0</span><span class="hl sym">);</span>
+
+  buf_index <span class="hl sym">:=</span> <span class="hl num">0</span><span class="hl sym">;</span>
+  i <span class="hl sym">:=</span> n<span class="hl sym">*</span>dimx<span class="hl sym">;</span>
+  <span class="hl kwa">while</span> buf_index <span class="hl sym">&lt;</span> i <span class="hl kwa">do</span>
+  <span class="hl kwa">begin</span>
+    t <span class="hl sym">:=</span> <span class="hl kwd">FileWrite</span><span class="hl sym">(</span>StdOutputHandle<span class="hl sym">,</span> TextBuf<span class="hl sym">[</span>buf_index<span class="hl sym">],</span> i<span class="hl sym">-</span>buf_index<span class="hl sym">);;</span>
+    <span class="hl kwa">if</span> t <span class="hl sym">&gt;=</span> <span class="hl num">0</span> <span class="hl kwa">then</span>
+      buf_index <span class="hl sym">:=</span> buf_index <span class="hl sym">+</span> t<span class="hl sym">;</span>
+  <span class="hl kwa">end</span><span class="hl sym">;</span>
+<span class="hl kwa">end</span><span class="hl sym">;</span>
+
+<span class="hl kwa">begin</span>
+  <span class="hl kwd">Val</span><span class="hl sym">(</span><span class="hl kwd">ParamStr</span><span class="hl sym">(</span><span class="hl num">1</span><span class="hl sym">),</span> n<span class="hl sym">);</span>
+  <span class="hl kwd">write</span><span class="hl sym">(</span><span class="hl str">'P4'</span><span class="hl sym">,</span> <span class="hl kwd">chr</span><span class="hl sym">(</span><span class="hl num">10</span><span class="hl sym">),</span> n<span class="hl sym">,</span> <span class="hl str">' '</span><span class="hl sym">,</span> n<span class="hl sym">,</span> <span class="hl kwd">chr</span><span class="hl sym">(</span><span class="hl num">10</span><span class="hl sym">));</span>
+  <span class="hl kwd">Flush</span><span class="hl sym">(</span>output<span class="hl sym">);</span>
+
+  dimx <span class="hl sym">:=</span> <span class="hl kwd">Ceil</span><span class="hl sym">(</span>n <span class="hl sym">/</span> <span class="hl num">8</span><span class="hl sym">);</span>
+
+  TextBuf <span class="hl sym">:=</span> <span class="hl kwd">GetMem</span><span class="hl sym">(</span>dimx<span class="hl sym">*</span>n<span class="hl sym">);</span>
+
+  run<span class="hl sym">;</span>
+
+  <span class="hl kwd">freemem</span><span class="hl sym">(</span>textbuf<span class="hl sym">);</span>
+<span class="hl kwa">end</span><span class="hl sym">.</span>

website/websites/u32/code/mandelbrot.4.fpascal.log

@@ -0,0 +1,21 @@
+
+Sun, 08 May 2011 16:40:40 GMT
+
+MAKE:
+mv mandelbrot.fpascal-4.fpascal mandelbrot.fpascal-4.pas
+/usr/local/src/fpc-2.4.2.i386-linux/bin/fpc -FuInclude/fpascal -XXs -Oppentiumm -Cppentiumm -O3 -Cfsse2  -oFPASCAL_RUN mandelbrot.fpascal-4.pas
+Free Pascal Compiler version 2.4.2 [2010/11/08] for i386
+Copyright (c) 1993-2010 by Florian Klaempfl
+Target OS: Linux for i386
+Compiling mandelbrot.fpascal-4.pas
+Linking FPASCAL_RUN
+/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
+118 lines compiled, 0.2 sec 
+mv FPASCAL_RUN mandelbrot.fpascal-4.fpascal_run
+rm mandelbrot.fpascal-4.pas
+0.20s to complete and log all make actions
+
+COMMAND LINE:
+./mandelbrot.fpascal-4.fpascal_run 16000
+
+(BINARY) PROGRAM OUTPUT NOT SHOWN

website/websites/u32/data/data.csv

@@ -261,6 +261,7 @@ knucleotide,sbcl,3,25000000,1284,195.896,391716,0,0% 0% 0% 100%,195.970
 knucleotide,gcc,6,25000000,2439,53.523,153560,0,0% 0% 0% 100%,53.554
 knucleotide,clean,1,25000000,1511,130.720,1049156,0,0% 0% 0% 100%,132.389
 knucleotide,yarv,2,25000000,420,613.130,157472,0,0% 0% 0% 100%,613.357
+knucleotide,scala,5,25000000,1962,0.000,37272,-10,1% 1% 2% 100%,0.978
 mandelbrot,racket,1,16000,517,120.188,10440,0,0% 0% 0% 100%,120.242
 mandelbrot,lua,6,16000,607,949.579,18940,0,0% 0% 0% 100%,949.523
 mandelbrot,ifc,1,16000,485,0.000,260,-10,0% 0% 5% 100%,0.217
@@ -292,6 +293,7 @@ mandelbrot,gpp,3,16000,414,219.918,884,0,0% 0% 0% 100%,219.970
 mandelbrot,yarv,2,16000,925,6579.135,50428,0,0% 0% 0% 100%,6581.164
 mandelbrot,clean,2,16000,506,57.196,548,0,0% 0% 0% 100%,57.204
 mandelbrot,php,3,16000,863,1991.296,108088,0,0% 0% 0% 100%,1991.596
+mandelbrot,fpascal,4,16000,748,324.044,31152,0,0% 0% 0% 100%,324.111
 mandelbrot,lua,1,16000,353,760.732,1020,0,0% 0% 0% 100%,760.686
 mandelbrot,scala,2,16000,454,51.567,13112,0,0% 0% 0% 100%,51.581
 mandelbrot,csharp,1,16000,798,66.240,38420,0,0% 0% 0% 100%,66.258

website/websites/u32/data/ndata.csv

@@ -785,6 +785,9 @@ knucleotide,clean,1,25000000,1511,130.720,1049156,0,0% 0% 0% 100%,132.389
 knucleotide,yarv,2,250000,420,6.336,24448,0,0% 1% 0% 100%,6.344
 knucleotide,yarv,2,2500000,420,61.468,47620,0,0% 0% 0% 100%,61.496
 knucleotide,yarv,2,25000000,420,613.130,157472,0,0% 0% 0% 100%,613.357
+knucleotide,scala,5,250000,1962,0.000,37272,-10,1% 1% 2% 100%,0.978
+knucleotide,scala,5,2500000,1962,0.000,37272,-10,1% 1% 2% 100%,0.978
+knucleotide,scala,5,25000000,1962,0.000,37272,-10,1% 1% 2% 100%,0.978
 mandelbrot,racket,1,1000,517,0.540,10384,0,0% 0% 4% 100%,0.542
 mandelbrot,racket,1,4000,517,7.600,10432,0,0% 1% 0% 100%,7.606
 mandelbrot,racket,1,16000,517,120.188,10440,0,0% 0% 0% 100%,120.242
@@ -878,6 +881,9 @@ mandelbrot,clean,2,16000,506,57.196,548,0,0% 0% 0% 100%,57.204
 mandelbrot,php,3,1000,863,9.229,10348,0,1% 3% 1% 100%,9.247
 mandelbrot,php,3,4000,863,124.496,26752,0,0% 0% 0% 100%,124.522
 mandelbrot,php,3,16000,863,1991.296,108088,0,0% 0% 0% 100%,1991.596
+mandelbrot,fpascal,4,1000,748,1.268,560,0,0% 0% 2% 100%,1.272
+mandelbrot,fpascal,4,4000,748,20.273,1856,0,1% 1% 0% 100%,20.279
+mandelbrot,fpascal,4,16000,748,324.044,31152,0,0% 0% 0% 100%,324.111
 mandelbrot,lua,1,1000,353,3.028,908,0,0% 0% 1% 100%,3.031
 mandelbrot,lua,1,4000,353,45.415,936,0,0% 0% 0% 100%,45.413
 mandelbrot,lua,1,16000,353,760.732,1020,0,0% 0% 0% 100%,760.686