/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)
|