Neil-Smithline

#!/bin/sh

# Get MacOSX idletime. Shamelessly stolen from http://bit.ly/yVhc5H
/usr/sbin/ioreg -c IOHIDSystem | /usr/bin/awk '/HIDIdleTime/ {print int($NF/1000000000); exit}'

Protonk

#Same idea as yesterday, but in one function with two arguments
pi.est<- function(iter,n) {
	pi.ratio<- function(n) {
		x<- runif(n, min=-1,max=1)
		y<- runif(n, min=-1,max=1)
		return(4*sum(x^2 + y^2 <= 1.0)/n)
		}
	sum.pi<-stor.rat<-numeric(0)
	for (i in 1:iter) {
		stor.rat[i]<- pi.ratio(n)