run-examples1

#!/bin/tcsh -f
unlimit stack
set runs=(0 1 2)
foreach b (particle saddle)
  foreach d (FF FR RF RR)
    foreach run ($runs)
      echo $b-$d Bigloo $run
      time ./$b-$d-bigloo
      end
    foreach run ($runs)
      echo $b-$d Chicken $run
      time ./$b-$d-chicken
      end
    foreach run ($runs)
      echo $b-$d Gambit $run
      time ./$b-$d-gambit
      end
    foreach run ($runs)
      echo $b-$d Ikarus $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-ikarus.scm")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-ikarus.scm")'
      echo >>/tmp/script "(time (run))"
      ~/schemes/install/bin/ikarus </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d Larceny $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-larceny.fasl")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-larceny.fasl")'
      echo >>/tmp/script "(time (run))"
      ~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny\
        </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d MITScheme $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-mitscheme")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-mitscheme")'
      echo >>/tmp/script "(with-timings"
      echo >>/tmp/script " (lambda () (run))"
      echo >>/tmp/script " (lambda (run-time gc-time real-time)"
      echo >>/tmp/script '  (display "Timings: ")'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
      echo >>/tmp/script '  (write-char #\space)'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
      echo >>/tmp/script '  (write-char #\space)'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
      echo >>/tmp/script '  (newline)))'
      ~/schemes/install/scmutils/mit-scheme/bin/scheme\
	--library ~/schemes/install/scmutils/mit-scheme/lib\
	--heap 6000 --band edwin-mechanics.com </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d MLton $run
      time ./$b-$d-mlton
      end
    foreach run ($runs)
      echo $b-$d MzC $run
      time ./$b-$d-mzc
      end
    foreach run ($runs)
      echo $b-$d MzScheme $run
      rm -f /tmp/script
      echo -n >/tmp/script "(run)"
      time mzscheme -f common-mzscheme.ss -f $b-$d-mzscheme.ss\
        -e `cat /tmp/script` -v
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d OCaml $run
      time ./$b-$d-ocaml
      end
    foreach run ($runs)
      echo $b-$d "Scheme->C" $run
      time ./$b-$d-s2c
      end
    foreach run ($runs)
      echo $b-$d SML/NJ $run
      time schroot --chroot i386-sid sml @SMLload=$b-$d-smlnj.x86-linux
      end
    foreach run ($runs)
      echo $b-$d Stalin $run
      time ./$b-$d-stalin
      end
    foreach run ($runs)
      echo $b-$d Stalingrad $run
      time ./$b-$d-stalingrad
      end
    end
  end

foreach b (particle saddle)
  foreach run ($runs)
    echo $b-FF ADIFOR $run
    time ./$b-FF-adifor
    end
  foreach run ($runs)
    echo $b-FF FADBAD++ $run
    time ./$b-FF-fadbad++
    end
  foreach run ($runs)
    echo $b-FF GHC $run
    time ./$b-FF-ghc
    end
  foreach run ($runs)
    echo $b-FF SCMUTILS $run
    rm -f /tmp/script
    echo >/tmp/script '(load "common-scmutils")'
    echo -n >>/tmp/script '(load "'
    echo -n >>/tmp/script $b
    echo >>/tmp/script '-FF-scmutils")'
    echo >>/tmp/script "(with-timings"
    echo >>/tmp/script " (lambda () (run))"
    echo >>/tmp/script " (lambda (run-time gc-time real-time)"
    echo >>/tmp/script '  (display "Timings: ")'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
    echo >>/tmp/script '  (newline)))'
    ~/schemes/install/scmutils/mit-scheme/bin/scheme\
      --library ~/schemes/install/scmutils/mit-scheme/lib\
      --heap 6000 --band edwin-mechanics.com </tmp/script
    rm -f /tmp/script
    end
  foreach run ($runs)
    echo $b-FF Tapenade $run
    time ./$b-FF-tapenade
    end
  end

foreach b (probabilistic-lambda-calculus probabilistic-prolog)
  foreach d (F R)
    foreach run ($runs)
      echo $b-$d Bigloo $run
      time ./$b-$d-bigloo
      end
    foreach run ($runs)
      echo $b-$d Chicken $run
      time ./$b-$d-chicken
      end
    foreach run ($runs)
      echo $b-$d Gambit $run
      time ./$b-$d-gambit
      end
    foreach run ($runs)
      echo $b-$d Ikarus $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-ikarus.scm")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-ikarus.scm")'
      echo >>/tmp/script "(time (run))"
      ~/schemes/install/bin/ikarus </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d Larceny $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-larceny.fasl")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-larceny.fasl")'
      echo >>/tmp/script "(time (run))"
      ~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny\
        </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d MITScheme $run
      rm -f /tmp/script
      echo >/tmp/script '(load "common-mitscheme")'
      echo -n >>/tmp/script '(load "'
      echo -n >>/tmp/script $b
      echo -n >>/tmp/script "-"
      echo -n >>/tmp/script $d
      echo >>/tmp/script '-mitscheme")'
      echo >>/tmp/script "(with-timings"
      echo >>/tmp/script " (lambda () (run))"
      echo >>/tmp/script " (lambda (run-time gc-time real-time)"
      echo >>/tmp/script '  (display "Timings: ")'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
      echo >>/tmp/script '  (write-char #\space)'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
      echo >>/tmp/script '  (write-char #\space)'
      echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
      echo >>/tmp/script '  (newline)))'
      ~/schemes/install/scmutils/mit-scheme/bin/scheme\
	--library ~/schemes/install/scmutils/mit-scheme/lib\
	--heap 6000 --band edwin-mechanics.com </tmp/script
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d MLton $run
      time ./$b-$d-mlton
      end
    foreach run ($runs)
      echo $b-$d MzC $run
      time ./$b-$d-mzc
      end
    foreach run ($runs)
      echo $b-$d MzScheme $run
      rm -f /tmp/script
      echo -n >/tmp/script "(run)"
      time mzscheme -f common-mzscheme.ss -f $b-$d-mzscheme.ss\
        -e `cat /tmp/script` -v
      rm -f /tmp/script
      end
    foreach run ($runs)
      echo $b-$d OCaml $run
      time ./$b-$d-ocaml
      end
    foreach run ($runs)
      echo $b-$d "Scheme->C" $run
      time ./$b-$d-s2c
      end
    foreach run ($runs)
      echo $b-$d SML/NJ $run
      time schroot --chroot i386-sid sml @SMLload=$b-$d-smlnj.x86-linux
      end
    foreach run ($runs)
      echo $b-$d Stalin $run
      time ./$b-$d-stalin
      end
    foreach run ($runs)
      echo $b-$d Stalingrad $run
      time ./$b-$d-stalingrad
      end
    end
  end

foreach b (probabilistic-lambda-calculus probabilistic-prolog)
  foreach run ($runs)
    echo $b-F SCMUTILS $run
    rm -f /tmp/script
    echo >/tmp/script '(load "common-scmutils")'
    echo -n >>/tmp/script '(load "'
    echo -n >>/tmp/script $b
    echo >>/tmp/script '-F-scmutils")'
    echo >>/tmp/script "(with-timings"
    echo >>/tmp/script " (lambda () (run))"
    echo >>/tmp/script " (lambda (run-time gc-time real-time)"
    echo >>/tmp/script '  (display "Timings: ")'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
    echo >>/tmp/script '  (newline)))'
    ~/schemes/install/scmutils/mit-scheme/bin/scheme\
      --library ~/schemes/install/scmutils/mit-scheme/lib\
      --heap 6000 --band edwin-mechanics.com </tmp/script
    rm -f /tmp/script
    end
  end

foreach run ($runs)
  echo backprop-Fs ADIC $run
  time ./backprop-Fs-adic
  end
foreach run ($runs)
  echo backprop-Fv ADIC $run
  time ./backprop-Fv-adic
  end
foreach run ($runs)
  echo backprop-Fs ADIFOR $run
  time ./backprop-Fs-adifor
  end
foreach run ($runs)
  echo backprop-Fv ADIFOR $run
  time ./backprop-Fv-adifor
  end
foreach run ($runs)
  echo backprop-Fs ADOLC $run
  time ./backprop-Fs-adolc
  end
foreach run ($runs)
  echo backprop-Fv ADOLC $run
  time ./backprop-Fv-adolc
  end
foreach run ($runs)
  echo backprop-R ADOLC $run
  time ./backprop-R-adolc
  end
foreach run ($runs)
  echo backprop-Fs FADBAD++ $run
  time ./backprop-Fs-fadbad++
  end
foreach run ($runs)
  echo backprop-Fv FADBAD++ $run
  time ./backprop-Fv-fadbad++
  end
foreach run ($runs)
  echo backprop-R FADBAD++ $run
  time ./backprop-R-fadbad++
  end
foreach run ($runs)
  echo backprop-Fs Tapenade $run
  time ./backprop-Fs-tapenade
  end
foreach run ($runs)
  echo backprop-Fv Tapenade $run
  time ./backprop-Fv-tapenade
  end
foreach run ($runs)
  echo backprop-R Tapenade $run
  time ./backprop-R-tapenade
  end

foreach d (Fs R)
  foreach run ($runs)
    echo backprop-$d CppAD $run
    time ./backprop-$d-cppad
    end
  foreach run ($runs)
    echo backprop-$d Bigloo $run
    time ./backprop-$d-bigloo
    end
  foreach run ($runs)
    echo backprop-$d Chicken $run
    time ./backprop-$d-chicken
    end
  foreach run ($runs)
    echo backprop-$d Gambit $run
    time ./backprop-$d-gambit
    end
  foreach run ($runs)
    echo backprop-$d Ikarus $run
    rm -f /tmp/script
    echo >/tmp/script '(load "common-ikarus.scm")'
    echo -n >>/tmp/script '(load "backprop-'
    echo -n >>/tmp/script $d
    echo >>/tmp/script '-ikarus.scm")'
    echo >>/tmp/script "(time (run))"
    ~/schemes/install/bin/ikarus </tmp/script
    rm -f /tmp/script
    end
  foreach run ($runs)
    echo backprop-$d Larceny $run
    rm -f /tmp/script
    echo >/tmp/script '(load "common-larceny.fasl")'
    echo -n >>/tmp/script '(load "backprop-'
    echo -n >>/tmp/script $d
    echo >>/tmp/script '-larceny.fasl")'
    echo >>/tmp/script "(time (run))"
    ~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny\
      </tmp/script
    rm -f /tmp/script
    end
  foreach run ($runs)
    echo backprop-$d MITScheme $run
    rm -f /tmp/script
    echo >/tmp/script '(load "common-mitscheme")'
    echo -n >>/tmp/script '(load "backprop-'
    echo -n >>/tmp/script $d
    echo >>/tmp/script '-mitscheme")'
    echo >>/tmp/script "(with-timings"
    echo >>/tmp/script " (lambda () (run))"
    echo >>/tmp/script " (lambda (run-time gc-time real-time)"
    echo >>/tmp/script '  (display "Timings: ")'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
    echo >>/tmp/script '  (write-char #\space)'
    echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
    echo >>/tmp/script '  (newline)))'
    ~/schemes/install/scmutils/mit-scheme/bin/scheme\
      --library ~/schemes/install/scmutils/mit-scheme/lib\
      --heap 6000 --band edwin-mechanics.com </tmp/script
    rm -f /tmp/script
    end
  foreach run ($runs)
    echo backprop-$d MLton $run
    time ./backprop-$d-mlton
    end
  foreach run ($runs)
    echo backprop-$d MzC $run
    time ./backprop-$d-mzc
    end
  foreach run ($runs)
    echo backprop-$d MzScheme $run
    rm -f /tmp/script
    echo -n >/tmp/script "(run)"
    time mzscheme -f common-mzscheme.ss -f backprop-$d-mzscheme.ss\
      -e `cat /tmp/script` -v
    rm -f /tmp/script
    end
  foreach run ($runs)
    echo backprop-$d OCaml $run
    time ./backprop-$d-ocaml
    end
  foreach run ($runs)
    echo backprop-$d "Scheme->C" $run
    time ./backprop-$d-s2c
    end
  foreach run ($runs)
    echo backprop-$d SML/NJ $run
    time schroot --chroot i386-sid sml @SMLload=backprop-$d-smlnj.x86-linux
    end
  foreach run ($runs)
    echo backprop-$d Stalin $run
    time ./backprop-$d-stalin
    end
  foreach run ($runs)
    echo backprop-$d Stalingrad $run
    time ./backprop-$d-stalingrad
    end
  end

foreach run ($runs)
  echo backprop-Fs SCMUTILS $run
  rm -f /tmp/script
  echo >/tmp/script '(load "common-scmutils")'
  echo >>/tmp/script '(load "backprop-Fs-scmutils")'
  echo >>/tmp/script "(with-timings"
  echo >>/tmp/script " (lambda () (run))"
  echo >>/tmp/script " (lambda (run-time gc-time real-time)"
  echo >>/tmp/script '  (display "Timings: ")'
  echo >>/tmp/script '  (write (internal-time/ticks->seconds run-time))'
  echo >>/tmp/script '  (write-char #\space)'
  echo >>/tmp/script '  (write (internal-time/ticks->seconds gc-time))'
  echo >>/tmp/script '  (write-char #\space)'
  echo >>/tmp/script '  (write (internal-time/ticks->seconds real-time))'
  echo >>/tmp/script '  (newline)))'
  ~/schemes/install/scmutils/mit-scheme/bin/scheme\
    --library ~/schemes/install/scmutils/mit-scheme/lib\
    --heap 6000 --band edwin-mechanics.com </tmp/script
  rm -f /tmp/script
  end

Generated by GNU enscript 1.6.4.