- プログラミングのお題スレ Part5
262 ：デフォルトの名無しさん[sage]：2014/10/11(土) 05:08:23.24 ID:VTqE+xbQ - お題：10種類10個の組み込み関数（メソッド)を直結して引数と同じものを返す。
例
a(b(c(d(e(f(g(h(i(j(5963)))))))))) -> 5963
| - プログラミングのお題スレ Part5
264 ：デフォルトの名無しさん[sage]：2014/10/11(土) 07:13:50.33 ID:VTqE+xbQ - >>252 J
f =: 3 : 0
d =. 10 10$(10 5 10 5 10#'#o|o#'),(50$1 4 1 5#'|o|o'),10#'#'
'#',.(((7#10)#:y){"1 d),.'#'
)
f 9563
#########
#ooo|||o#
#|||ooo|#
#########
#|||o|oo#
#ooooo|o#
#ooooooo#
#oooooo|#
#ooo|ooo#
#########
| - プログラミングのお題スレ Part5
271 ：デフォルトの名無しさん[sage]：2014/10/11(土) 20:54:35.71 ID:VTqE+xbQ - >>262 Io
Io> 5963 squared sqrt log exp round floor asString split last asNumber
==> 5963
| - プログラミングのお題スレ Part5
273 ：デフォルトの名無しさん[sage]：2014/10/11(土) 23:19:53.17 ID:VTqE+xbQ - >>206 Lua
function f(s)
if s:match("^%d.-%D$") then
r=s:gsub("(%d+)(%D+)","%2%1"):gsub("^(.-)(%d+)$","%2%1")
elseif s:match("^%D.-%d$") then
r=s:gsub("^(.-)(%d+)$","%2%1"):gsub("(%d+)(%D+)","%2%1")
elseif s:match("^%d.-%d$") then
r=(s.."A"):gsub("(%d+)(%D+)","%2%1"):gsub("^(.-)A(%d+)$","%2%1")
elseif s:match("^%D.-%D$") then
r=("0"..s):gsub("(%d+)(%D+)","%2%1"):gsub("^(%D+)0(.-)(%d+)$","%1%3%2")
else
r=s
end
return r
end
|
|