"카타 7급 Remove the minimum"의 두 판 사이의 차이

2019년 4월 24일 (수) 02:18 판

remove_smallest <- function(numbers){
  if( length(numbers)< 1 ) return(numbers)
  numbers[-match( min(numbers), numbers )]
}

remove_smallest <- function(numbers) {
  numbers[-which.min(numbers)]
}

remove_smallest <- function(n) n[-which.min(n)]

@@ 2번째 줄: / 2번째 줄: @@
 {{카타|7급|R|2}}
 <source lang='r'>
+remove_smallest <- function(numbers){
+  if( length(numbers)< 1 ) return(numbers)
+  numbers[-match( min(numbers), numbers )]
+}
+</source>
+<source lang='r'>
+remove_smallest <- function(numbers) {
+  numbers[-which.min(numbers)]
+}
+</source>
+<source lang='r'>
+remove_smallest <- function(n) n[-which.min(n)]
 </source>