どう書く？org : 17歳教

original page : http://ja.doukaku.org/236/

誕生日を入力すると、「17歳と何日か」、「１７歳と何か月と何日か」を表示するプログラムを作ってください。

#8521

original page : http://ja.doukaku.org/comment/8521/

おいおいｗ

seventeen.years <- function(s="1964-09-25"){
    d <- c(as.POSIXlt(s), Sys.Date())
    d[1]$year <- d[1]$year + 17
    d <- as.Date(d)
    p <- ifelse(diff(d)>0, "と", "まで")
    if(diff(d)<0) d[1:2] <- d[2:1]
    l <- seq(d[1], d[2], "month")
    l <- l[l<d[2]]
    writeLines(sprintf("17歳%s%d日\n\nまたは17歳%s%dヶ月%d日\n", p, as.integer(diff(d)),
                       p, length(l)-1, as.integer(d[2]-l[length(l)])))
}