original page : http://ja.doukaku.org/212/
漢数字で九九の表を作ってください。
ただし以下の条件をつけます。条件
一.アラビア数字(0〜9)禁止。
プログラムにも出力結果にもアラビア数字を含んではいけない。(全角・半角とも)
二.結果の数字は、「七」とか「一○」(=10)とか「六四」(=64)のような形式とする。
三.九九の結果をそのままプログラム中に書き込んではいけない。
出力例 一 二 三 ・・・・ 二 四 六 ・・・・ 三 六 九 ・・・・ 四 八 一二 ・ ・
#7917
original page : http://ja.doukaku.org/comment/7917/
outerかわいいです
number.lhs <- unlist(strsplit(" 一二三四五六七八九", '')) number.rhs <- unlist(strsplit("〇一二三四五六七八九", '')) s <- length(NA) e <- length(number.lhs) - s number.tbl <- t(outer(number.lhs, number.rhs, paste, sep="")) outer(s:e, s:e, function(x,y) number.tbl[x*y+s])