This file is indexed.

/usr/share/doc/littler/examples/mph.r is in littler 0.2.1-1.

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

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/env r 
#
# Convert miles-per-hour, time-distance measure settable
# on treadmiles, to different race times.
#
# Copyright (C) 2006 - 2014  Dirk Eddelbuettel
#
# Released under GPL (>= 2)

if (is.null(argv) | length(argv)<1) {

  cat("Usage: mph.r mph\n")
  q()

}
dig <- 5
mph <- as.numeric(argv[1])

cat("Mph     : ",format(mph,digits=dig),"\n");

hourminsec <- function(totalsecs){
	ret <- list(hour=0,min=0,sec=0)

	ret$hour <- floor(totalsecs / 3600)

	totalsecs <- totalsecs - (ret$hour * 3600)

	ret$min <- floor(totalsecs / 60)

	ret$sec <- totalsecs - (ret$min * 60)

	ret
}

minutes <- floor(60/mph)
pminute <- 60/mph - minutes
secs <- floor(60 * (pminute))
secspermile <-  60*minutes + secs

outrace <- function(title,miles){
	race <- hourminsec(miles*secspermile)
	cat(sprintf("%-8s: %2.f hours %2.f min %2.f sec\n",title, race$hour,race$min, race$sec))
}

kilodiv <- 1.609344 # kilometer divisor
outrace('1 mile',1)
outrace('3 miles',3)
outrace('5k',5/kilodiv)
outrace('10k',10/kilodiv)
outrace('Marathon',42.195/kilodiv)
outrace('Ultra',100)