DouKaku? 7149 emasaka: コマンドを呼ぶと28B。(LL Golf Hole 5 - 最上位の桁を数え上げる)

Comment detail

コマンドを呼ぶと28B。

1	seq 0 300\|grep '^[1-9]\?0*$'

grepが一番シンプルかもですね。

1	count <- function(n) grep("^[0-9]0*$", 0:n, value=T)

たしかに。grepを使ったらシンプルに。

1	ruby -e 'p (0..300).collect{\|i\| i.to_s}.grep(/^[1-9]?0*$/)'

("0".."300")という書き方ができるんですね。そうすればcollectの部分も不要。投稿してから気がつきました。

皆さんのご意見を元に改良。

コマンドラインから上限を得ます。

1	puts ("0"..ARGV[0]).grep(/^.?0*$/)

もうちょっと縮まった

1	puts ("0"..$[0]).grep(/^\d0$/)

数値に限定されるのでもう少し簡単な正規表現で書けます。

1	seq 0 300\|grep '^.0*$'

たしかに、数値しか入力されないから"."で十分なのですね。シンプルすぎる・・・

1	grep("^.0*$",0:300)-1