This file is indexed.

/usr/share/doc/stalin/benchmarks/div-rec.sc is in stalin 0.11-5.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File:         div.sc
;;; Description:  DIV benchmarks
;;; Author:       Richard Gabriel
;;; Created:      8-Apr-85
;;; Modified:     19-Jul-85 18:28:01 (Bob Shaw)
;;;               23-Jul-87 (Will Clinger)
;;;               11-Apr-94 (Qobi)
;;;               31-Mar-98 (Qobi)
;;; Language:     Scheme
;;; Status:       Public Domain
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; DIV2 -- Benchmark which divides by 2 using lists of n ()'s.
;;; This file contains a recursive as well as an iterative test.

(define (create-n n) (do ((n n (- n 1)) (a '() (cons '() a))) ((= n 0) a)))

(define *ll* (create-n 200))

(define (recursive-div2 l)
 (cond ((null? l) '()) (else (cons (car l) (recursive-div2 (cddr l))))))

(define (test-2 l)
 (do ((i 300 (- i 1))) ((= i 0))
  (recursive-div2 l)
  (recursive-div2 l)
  (recursive-div2 l)
  (recursive-div2 l)))

;;; note: The CREATE-N is not done multiple times.
(do ((i 0 (+ i 1))) ((= i 1000)) (test-2 *ll*))