R で BizzBuzz.
なんとなく R に手を出してみる。BizzBuzz を作ったらこんな感じになった。
#!/usr/local/bin/Rscript x<-1:100 y<-paste(ifelse(x%%3==0,"Bizz",""),ifelse(x%%5==0,"Buzz",""),sep="") cat(ifelse(y=="",x,y))
出力は
1 2 Bizz 4 Buzz Bizz 7 8 Bizz Buzz 11 Bizz 13 14 BizzBuzz 16 17 Bizz 19 Buzz (略)