fork download
copy 
  1. letitburn <- function(x, input) {
  2.   x <- strsplit(x, "\n")[[1]]
  3.   x <- strsplit(x, "")
  4.   floor <- matrix(unlist(x), nrow = length(x), ncol = length(x[[1]]), byrow = T)
  5.   input <- read.table(textConnection(input))
  6.   for(i in 1:nrow(input)) {
  7.     s <- as.integer(input[i,]) + 1
  8.     if(!all(rev(s) <= dim(floor)))
  9.       next
  10.     poss <- floor[s[2], s[1]]
  11.     if(poss %in% c("F", "#", "|", "/", "=", "_"))
  12.       next
  13.     if(poss == "S")
  14.       floor[s[2], s[1]] <- "F"
  15.     else
  16.       floor[s[2], s[1]] <- "S"
  17.   }
  18.   smoke <- which(floor == "S")
  19.   for(i in 1:length(smoke)) {
  20.     top <- floor[smoke[i] - 1]
  21.     bot <- floor[smoke[i] + 1]
  22.     lef <- floor[smoke[i] - nrow(floor)]
  23.     rig <- floor[smoke[i] + nrow(floor)]
  24.     all <- c(top, bot, lef, rig)
  25.     if("F" %in% all){
  26.       floor[smoke[i]] <- "F"
  27.       next
  28.     }
  29.     pass <- which(all == "/" | all == "=" | all == "_")
  30.     if(length(which) == 0) next
  31.     for(j in seq_along(pass)) {
  32.       check <- ifelse(pass[j] <= 2, 2, nrow(floor)*2)
  33.       if(pass[j] %% 2 == 0)
  34.         check <- floor[smoke[i] + check]
  35.       else
  36.         check <- floor[smoke[i] - check]
  37.       if("F" == check) floor[smoke[i]] <- "F"
  38.     }
  39.   }
  40.   return(floor)
  41. }
  42.  
  43. shouse <- "#############/#\n#     |       #\n#     #       #\n#     #       #\n#######       #\n#     _       #\n###############"
  44.  
  45. shinput <- "1 1\n1 2\n1 3\n5 6\n4 2\n1 1\n1 2\n5 5\n5 5\n9 1\n5 7\n2 2"
  46.  
  47. output <- letitburn(shouse, shinput)
  48.  
  49. apply(output, 1, cat, "\n")
Success #stdin #stdout 0.25s 176448KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
# # # # # # # # # # # # # / # 
# F         |     S         # 
# F F   S   #               # 
# F         #               # 
# # # # # # #               # 
#         F _               # 
# # # # # # # # # # # # # # # 
NULL
https://ideone.com/VxHgLj
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!