"카타 7급 Get the Middle Character"의 두 판 사이의 차이

2020년 11월 2일 (월) 02:55 기준 최신판

get_middle <- function(s){
  substr(s, (nchar(s)+1)%/%2, nchar(s)%/%2 + 1)
}

get_middle <- function(s){
  n = nchar(s)
  if( n %% 2 == 0 ) substr(s, n/2, n/2+1)
  else substr(s, (n+1)/2, (n+1)/2)
}

@@ 1번째 줄: / 1번째 줄: @@
+==Kotlin==
+{{카타|7급|Kotlin|2}}
+<syntaxhighlight lang='kotlin'>
+</syntaxhighlight>
+<syntaxhighlight lang='kotlin'>
+</syntaxhighlight>
+<syntaxhighlight lang='kotlin'>
+</syntaxhighlight>
 ==R==
 {{카타|7급|R|3}}
-<source lang='r'>
-</source>
+<syntaxhighlight lang='r'>
+get_middle <- function(s){
+  substr(s, (nchar(s)+1)%/%2, nchar(s)%/%2 + 1)
+}
+</syntaxhighlight>
+<syntaxhighlight lang='r'>
+get_middle <- function(s){
+  n = nchar(s)
+  if( n %% 2 == 0 ) substr(s, n/2, n/2+1)
+  else substr(s, (n+1)/2, (n+1)/2)
+}
+</syntaxhighlight>