fork download
copy 
  1. library(stringr)
  2. library(plyr)
  3. #library(pdist) # apparently CompileBot doesn't have this package
  4. source(url('https://p...content-available-to-author-only...n.com/raw/ekg9ZTMW')) # just to get pdist, lol
  5.  
  6. # Functions
  7. formatrow <- function(s, NCOL) strsplit(str_pad(s, NCOL, side = 'right'), '')[[1]]
  8.  
  9. makemap <- function(mapdata, NCOL)  adply(.data = mapdata, .margins = 1, .fun = formatrow, NCOL, .id = NULL)
  10.  
  11. centermap <- function(map, COL) {
  12.   NCOL <- ncol(map)
  13.   cols <- rep(seq(NCOL), 3)
  14.   center <- floor(NCOL/2)
  15.   indices <- cols[seq(COL + NCOL - center, COL + NCOL + center - 1)]
  16.   map[, indices]
  17. }
  18.  
  19. findland <- function(map) which(map == '#', arr.ind = T)
  20. findwater <- function(map) which(map == ' ', arr.ind = T)
  21.  
  22. getdistances <- function(map, COL) {
  23.   map <- centermap(map, COL)
  24.   water <- cbind(findwater(map[, 41]), 41)
  25.   land <- findland(map)
  26.   dists <- as.matrix(pdist(water, land))
  27.   apply(dists, 1, min)
  28. }
  29.  
  30. getNemo <- function(map) {
  31.   dists <- unlist(sapply(seq(ncol(map)), getdistances, map = map))
  32.   water <- findwater(map)
  33.   water[which.max(dists), ]
  34. }
  35.  
  36. drawMap <- function(map, point = NULL) {
  37.   if(!is.null(point))
  38.    map[point[1], point[2]] <- '*'
  39.   invisible(apply(map, 1, function(x) writeLines(paste0(x, collapse = ''))))
  40. }
  41.  
  42. runIt <- function(mapdata, NCOL, NROW) {
  43.   map <- makemap(mapdata, NCOL)
  44.   nemo <- getNemo(map)
  45.   writeLines(paste('Row:', nemo[1], '\tCol:', nemo[2], '\n'))
  46.   drawMap(map, nemo)
  47. }
  48.  
  49.  
  50.  
  51. # Input Data
  52. NCOL <- 80
  53. NROW <- 25
  54. mapdata <- c(" ## #     # #    #               #      #                       ## ###",
  55.              "  ####   ###### ########   ######        ##### ######### #### #######",
  56.              "   ########## ## #####    ####    #          #####################",
  57.              "    #######################      ##            ### ##  #### ####  ##",
  58.              "     ######### #########         ###            ##  #   ### ##   ##",
  59.              "#     # #####   #######         ###                      #      #",
  60.              "      #   ###       ##                          #######",
  61.              "      #    ###                                 ###########     #",
  62.              "            ###   ##                          ##############              #",
  63.              "#            ###                              ##############                #",
  64.              "              ##                               #############",
  65.              "            #####                               ###########       ##",
  66.              "          #########                             ##########      ##",
  67.              "        ############                              #########     ##",
  68.              "      ###############                              #######",
  69.              "     ##############                                 #####           #########",
  70.              "    ############### ##                               ###           ###########",
  71.              "     ###############                                  #           ############",
  72.              "      ############                                                ###   ####",
  73.              "       #########      #",
  74.              "#         #####",
  75.              "",
  76.              "          ########                        ######               #######",
  77.              "        ###################### ###########################  ##############",
  78.              "##############################################################################")
  79.  
  80.  
  81. # Run it
  82. runIt(mapdata, NCOL, NROW)
  83.  
  84.  
  85.  
  86.  
  87.  
Success #stdin #stdout #stderr 0.29s 339136KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error in readLines(file, warn = FALSE) : cannot open connection
Calls: source -> readLines
In addition: Warning message:
In readLines(file, warn = FALSE) :
  URL 'https://p...content-available-to-author-only...n.com/raw/ekg9ZTMW': status was 'Couldn't resolve host name'
Execution halted
https://ideone.com/ZuVztV
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!