読者です 読者をやめる 読者になる 読者になる

lengthとか

R

Rで学ぶプログラミングGaucheとかやりたくなってきた(何。

my_length <- function(list){
  if(is.null(list)){
    return(0)
  }else if(is.list(list)){
    return(1 + my_length(cdr(unlist(list,recursive=FALSE))))
  }else{
    return(1 + my_length(cdr(list)))
  }
}
> my_length(1:10)
[1] 10
> my_length(list(1:10,list(1:10)))
[1] 20

プログラミングGaucheで面白かったのは、今までと違うパラダイムで世界を構築していくところだったような気がする。で、それを自分の好きな言語でやれるんだったら、それは結構嬉しいことだよね。