12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 |
- <!DOCTYPE html>
- <head>
- <!--
- Copyright (C) 2007 Apple Inc. All rights reserved.
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions
- are met:
- 1. Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
- 2. Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in the
- documentation and/or other materials provided with the distribution.
- THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY
- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE COMPUTER, INC. OR
- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
- OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
- OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- -->
- <title>SunSpider controlflow-recursive</title>
- </head>
- <body>
- <h3>controlflow-recursive</h3>
- <div id="console">
- </div>
- <script>
- var _sunSpiderStartDate = new Date();
- // The Computer Language Shootout
- // http://shootout.alioth.debian.org/
- // contributed by Isaac Gouy
- function ack(m,n){
- if (m==0) { return n+1; }
- if (n==0) { return ack(m-1,1); }
- return ack(m-1, ack(m,n-1) );
- }
- function fib(n) {
- if (n < 2){ return 1; }
- return fib(n-2) + fib(n-1);
- }
- function tak(x,y,z) {
- if (y >= x) return z;
- return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y));
- }
- for ( var i = 3; i <= 5; i++ ) {
- ack(3,i);
- fib(17.0+i);
- tak(3*i+3,2*i+2,i+1);
- }
- var _sunSpiderInterval = new Date() - _sunSpiderStartDate;
- document.getElementById("console").innerHTML = _sunSpiderInterval;
- </script>
- </body>
- </html>
|