- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
168 ：デフォルトの名無しさん[sage]：2015/05/21(木) 04:49:33.68 ID:NcgsUaMq - >>135 R
FizzBuzz <- function(n){
a <- 1:n
a[seq(3,n,3)] <- "Fizz"
a[seq(5,n,5)] <- "Buzz"
a[seq(15,n,15)] <- "FizzBuzz"
cat(a,sep="\n")
}
| - プログラミングのお題スレ Part7 [転載禁止]©2ch.net
169 ：デフォルトの名無しさん[sage]：2015/05/21(木) 06:49:27.33 ID:NcgsUaMq - >>162 R
f <- function(n){
w <- n
r <- 0
while(w > 0){
r <- r * 10 + w %% 10
w <- w %/% 10
}
r == n
}
> f(121)
[1] TRUE
> f(1122)
[1] FALSE
| - プログラミングのお題スレ Part7 [転載禁止]©2ch.net
171 ：デフォルトの名無しさん[sage]：2015/05/21(木) 17:58:34.98 ID:NcgsUaMq - >>162 Julia
function f(n)
a = digits(n)
a == reverse(a)
end
julia> f(1234)
false
julia> f(1234321)
true
|
|