fork download
copy 
  1. knight <- function(x) {
  2.   moves <- matrix(c(-1,-2,1,-2,-1,2,1,2,-2,-1,2,-1,-2,1,2,1), ncol = 2, byrow = T)
  3.   d_moves <- matrix(data = 0, ncol = 2)
  4.   count <- 0
  5.   sums <- x
  6.   while(!all(apply(d_moves, 2, sum) == x)) {
  7.     count <- count +1
  8.     pars <- apply(moves, 1, function(y) {
  9.       # if(all((sums-y) == 0))
  10.       #   return(0)
  11.       # if(any((sums-y) == 0))
  12.       #   return(1000)
  13.       if(any(abs(sums-y) == 1) & any(abs(sums-y) == 2))
  14.         return(0)
  15.       return(sum(abs(sums-y)))
  16.     })
  17.     d_moves <- rbind(d_moves, moves[which.min(pars),])
  18.     sums <- sums - d_moves[count+1,]
  19.   }
  20.   return(list(Objective = x, Moves = count, Optional = d_moves[-1,]))
  21. }
  22.  
  23. knight(c(0,1))
  24. knight(c(3,7))
  25. knight(c(1,1))
  26. knight(c(-3,-3))
  27. knight(c(100,100))
Success #stdin #stdout 0.23s 176448KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
$Objective
[1] 0 1

$Moves
[1] 3

$Optional
     [,1] [,2]
[1,]   -1    2
[2,]   -1   -2
[3,]    2    1

$Objective
[1] 3 7

$Moves
[1] 4

$Optional
     [,1] [,2]
[1,]    1    2
[2,]    1    2
[3,]   -1    2
[4,]    2    1

$Objective
[1] 1 1

$Moves
[1] 2

$Optional
     [,1] [,2]
[1,]   -1    2
[2,]    2   -1

$Objective
[1] -3 -3

$Moves
[1] 2

$Optional
     [,1] [,2]
[1,]   -1   -2
[2,]   -2   -1

$Objective
[1] 100 100

$Moves
[1] 76

$Optional
      [,1] [,2]
 [1,]    1    2
 [2,]    1    2
 [3,]    1    2
 [4,]    1    2
 [5,]    1    2
 [6,]    1    2
 [7,]    1    2
 [8,]    1    2
 [9,]    1    2
[10,]    1    2
[11,]    1    2
[12,]    1    2
[13,]    1    2
[14,]    1    2
[15,]    1    2
[16,]    1    2
[17,]    1    2
[18,]    1    2
[19,]    1    2
[20,]    1    2
[21,]    1    2
[22,]    1    2
[23,]    1    2
[24,]    1    2
[25,]    1    2
[26,]    1    2
[27,]    1    2
[28,]    1    2
[29,]    1    2
[30,]    1    2
[31,]    1    2
[32,]    1    2
[33,]    1    2
[34,]    1    2
[35,]    1    2
[36,]    1    2
[37,]    1    2
[38,]    1    2
[39,]    1    2
[40,]    1    2
[41,]    1    2
[42,]    1    2
[43,]    1    2
[44,]    1    2
[45,]    1    2
[46,]    1    2
[47,]    1    2
[48,]    1    2
[49,]    1    2
[50,]    1    2
[51,]    2   -1
[52,]    2    1
[53,]    2   -1
[54,]    2    1
[55,]    2   -1
[56,]    2    1
[57,]    2   -1
[58,]    2    1
[59,]    2   -1
[60,]    2    1
[61,]    2   -1
[62,]    2    1
[63,]    2   -1
[64,]    2    1
[65,]    2   -1
[66,]    2    1
[67,]    2   -1
[68,]    2    1
[69,]    2   -1
[70,]    2    1
[71,]    2   -1
[72,]    2    1
[73,]    2   -1
[74,]    2    1
[75,]    1   -2
[76,]    1    2
https://ideone.com/G9aXTG
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!