← Back to branch summary

~ubuntu-branches/ubuntu/hardy/sigscheme/hardy-proposed

~ubuntu-branches/ubuntu/hardy/sigscheme/hardy-proposed

« back to all changes in this revision

Viewing changes to bench/bench-takl.scm

Committer: Bazaar Package Importer
Author(s): NIIBE Yutaka
Date: 2006-05-23 21:46:41 UTC
mfrom: (1.1.1 upstream)
Revision ID: james.westby@ubuntu.com-20060523214641-6ix4gz34wpiehub8

Tags: 0.5.0-2

http://bugs.debian.org/368571

* debian/control (Build-Depends): Added ruby.
Thanks to Frederik Schueler. Closes: #368571
* debian/rules (clean): invoke 'distclean' instead of 'clean'.

files added:
MEMO.tkng

Makefile.am

Makefile.in

NEWS

README

TODO

aclocal.m4

autogen.sh

autom4te.cache

autom4te.cache/output.0

autom4te.cache/output.1

autom4te.cache/requests

autom4te.cache/traces.0

autom4te.cache/traces.1

bench

bench/bench-arithint.scm

bench/bench-case.scm

bench/bench-cpstak.scm

bench/bench-fib.scm

bench/bench-let-loop.scm

bench/bench-loop.scm

bench/bench-mem.scm

bench/bench-rec.scm

bench/bench-tak.scm

bench/bench-takl.scm

bench/bench-takr.scm

compare-scm.sh

compile

config.guess

config.h.in

config.sub

configure

configure.in

depcomp

doc

doc/design.txt

doc/spec.txt

doc/style.txt

experimental

experimental/imm-const

experimental/imm-const/Makefile

experimental/imm-const/imm-test-gcc32-Os-armv5te-thumb.txt

experimental/imm-const/imm-test-gcc32-Os-armv5te.txt

experimental/imm-const/imm-test-gcc32-Os-m68k.txt

experimental/imm-const/imm-test-gcc32-Os-mips.txt

experimental/imm-const/imm-test-gcc32-Os-mips16.txt

experimental/imm-const/imm-test-gcc32-Os-sh2.txt

experimental/imm-const/imm-test-gcc32-Os-sh3.txt

experimental/imm-const/imm-test-gcc32-Os-sh4.txt

experimental/imm-const/imm-test-gcc34-Os-avr.txt

experimental/imm-const/imm-test-gcc34-Os-i486.txt

experimental/imm-const/imm-test-gcc34-Os-ppro-i486.txt

experimental/imm-const/imm-test-gcc34-Os-ppro.txt

experimental/imm-const/imm-test.c

install-sh

ltmain.sh

m4

m4/Makefile.am

m4/Makefile.in

m4/ax_c___attribute__.m4

m4/ax_check_page_aligned_malloc.m4

m4/ax_create_stdint_h.m4

m4/ax_lib_glibc.m4

misc

misc/scm-obj-compact-gdbinit

missing

runbench.sh

runtest-tail-rec.sh

runtest.sh

slib.scm

src

src/Makefile.am

src/Makefile.in

src/alloc.c

src/basecport.c

src/baseport.h

src/c_template

src/char.c

src/config-asprintf.h

src/config-nonstd-string.h

src/config.h

src/deep-cadrs.c

src/encoding.c

src/encoding.h

src/env.c

src/error.c

src/eval.c

src/fileport.c

src/fileport.h

src/functable-r5rs-procedure.c

src/functable-r5rs-syntax.c

src/functable-siod.c

src/functable-srfi1.c

src/functable-srfi2.c

src/functable-srfi23.c

src/functable-srfi34.c

src/functable-srfi38.c

src/functable-srfi6.c

src/functable-srfi60.c

src/functable-srfi8.c

src/functable-sscm-core.c

src/functable-sscm-ext.c

src/h_template

src/list.c

src/load.c

src/main.c

src/mbcport.c

src/mbcport.h

src/module-siod.c

src/module-srfi1.c

src/module-srfi2.c

src/module-srfi23.c

src/module-srfi34.c

src/module-srfi38.c

src/module-srfi6.c

src/module-srfi60.c

src/module-srfi8.c

src/module-sscm-ext.c

src/module.c

src/my-stdint.h

src/nullport.c

src/nullport.h

src/number.c

src/port.c

src/procedure.c

src/read.c

src/sbcport.c

src/sbcport.h

src/scm_functype_mand_max15.diff

src/script

src/script/build_func_table.rb

src/script/check_declare_func_typo.rb

src/script/check_initialize_scm_null.rb

src/script/functable-footer.txt

src/script/functable-header.txt

src/script/scm_decl.rb

src/sigscheme.c

src/sigscheme.h

src/sigschemeinternal.h

src/storage-compact.h

src/storage-continuation.c

src/storage-fatty.h

src/storage-gc.c

src/storage-protection.c

src/storage-symbol.c

src/storage.c

src/string.c

src/strport.c

src/strport.h

src/syntax.c

src/test-compact.c

src/vector.c

src/write.c

test

test/bigloo-apply.scm

test/bigloo-bchar.scm

test/bigloo-bool.scm

test/bigloo-case.scm

test/bigloo-letrec.scm

test/bigloo-list.scm

test/bigloo-quote.scm

test/bigloo-vector.scm

test/define.scm

test/for-each.scm

test/gauche-primsyn.scm

test/io.scm

test/test-apply.scm

test/test-char-cmp.scm

test/test-char.scm

test/test-continuation.scm

test/test-define.scm

test/test-delay-force.scm

test/test-enc-eucgeneric.scm

test/test-enc-eucjp.scm

test/test-enc-sjis.scm

test/test-enc-utf8.scm

test/test-equation.scm

test/test-eval.scm

test/test-exp.scm

test/test-list.scm

test/test-map.scm

test/test-num.scm

test/test-quote.scm

test/test-r4rs.scm

test/test-srfi1.scm

test/test-srfi2.scm

test/test-srfi34-2.scm

test/test-srfi34.scm

test/test-srfi38.scm

test/test-srfi6.scm

test/test-srfi60.scm

test/test-srfi8.scm

test/test-string-cmp.scm

test/test-string.scm

test/test-syntax.scm

test/test-tail-rec.scm

test/test-vector.scm

test/unittest-bigloo.scm

test/unittest-gauche.scm

test/unittest.scm

files removed:
.bzr-builddeb

.bzr-builddeb/default.conf

COPYING

Makefile

baseport.h

config.h

datas.c

debug.c

encoding.c

error.c

eval.c

fileport.c

fileport.h

io.c

main.c

operations-siod.c

operations-srfi1.c

operations-srfi2.c

operations-srfi23.c

operations-srfi34.c

operations-srfi38.c

operations-srfi6.c

operations-srfi60.c

operations-srfi8.c

operations.c

read.c

sbcport.c

sbcport.h

sigscheme.1

sigscheme.c

sigscheme.h

sigschemeinternal.h

sigschemetype-compact.h

sigschemetype.h

storage-protection.c

test-compact.c

files modified:
AUTHORS

debian/changelog

debian/control

debian/rules

debian/watch

Show diffs side-by-side

added added

removed removed

bench/bench-takl.scm

1

(define (listn n)

2

(if (not (= 0 n))

3

(cons n (listn (- n 1)))

4

'()))

5

6

(define l18 (listn 18))

7

(define l12 (listn 12))

8

(define l6 (listn 6))

9

10

(define (mas x y z)

11

(if (not (shorterp y x))

12

z

13

(mas (mas (cdr x)

14

y z)

15

(mas (cdr y)

16

z x)

17

(mas (cdr z)

18

x y))))

19

20

(define (shorterp x y)

21

(and (not (null? y))

22

(or (null? x)

23

(shorterp (cdr x)

24

(cdr y)))))

25

26

;;; call: (mas l18 l12 l6)

27

28

(mas l18 l12 l6)

29

Older »