tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Priority-queue/R/priority-queue-3.r
+++ b/Task/Priority-queue/R/priority-queue-3.r
@ -0,0 +1,18 @@
+PriorityQueue <-
+  setRefClass("PriorityQueue",
+              fields = list(keys = "numeric", values = "list"),
+              methods = list(
+                insert = function(key,value) {
+                  temp <- c(keys,key)
+                  ord <- order(temp)
+                  keys <<- temp[ord]
+                  values <<- c(values,list(value))[ord]
+                },
+                pop = function() {
+                  head <- values[[1]]
+                  keys <<- keys[-1]
+                  values <<- values[-1]
+                  return(head)
+                },
+                empty = function() length(keys) == 0
+                ))