R/utoronto_radford_csc120/a1script.r

   1 #!/usr/bin/env littler
   2
   3 source("a1funs.r")
   4
   5 #a1data <- as.matrix(read.table("http://www.cs.utoronto.ca/~radford/csc120/a1data.txt"))
   6 a1data <- as.matrix(read.table('a1data.txt'))
   7
   8 DEBUG <- F
   9
  10 set.seed(1)
  11 find_pairings(a1data,1,TRUE)
  12 set.seed(1)
  13 find_pairings(a1data,10,TRUE)
  14
  15 set.seed(999612806)
  16 find_pairings(a1data,1,TRUE)
  17 set.seed(999612806)
  18 find_pairings(a1data,10,TRUE)