単調増加数 (Ruby-alpha)

問題	http://nabetani.sakura.ne.jp/hena/orde24tancho/
Ruby / AIR-lang / Python	https://qiita.com/cielavenir/items/6de720c9a12813c5f469
Perl / C / Crystal / D / Go	https://qiita.com/cielavenir/items/51f260519b62a3330234
Ruby-alpha	https://qiita.com/cielavenir/items/9048c60498a9385b25c0

RubyKaigiの企業ブース(?)がネタ元です
http://tech.misoca.jp/entry/build-the-ruby-from-a-floppy-disk

ビルド方法

上記URLも参考に…

curl ftp://ftp.ruby-lang.org/pub/ruby/1.0/ruby-0.49.tar.gz -LO
tar xf ruby-0.49.tar.gz
cd ruby
curl https://raw.githubusercontent.com/charliesome/historical-rubies/master/ruby-0.49.patch -LO
patch -p1 < ruby-0.49.patch
./configure
make CFLAGS="-Wno-return-type -m32" # clang is ok.

解答

• 繰り返しの構文が全く違う
• 後置if不可
• next不可
• 3項演算子はif-then-else-endで代用
• stdin/stdoutの明示が必要
• putsは改行を付与しない
• Bignumの除算が怪しいため、追加問題は解けません

tyama_henae24.rb0

# !/usr/bin/env ruby-alpha
# http://nabetani.sakura.ne.jp/hena/orde24tancho/
# https://qiita.com/Nabetani/items/928d6a94d83c21ef64d7

def comb(n,k)
	r=1
	for i in 0..k-1
		r=r*(n-i)/(i+1)
	end
	r
end

while $stdin.gets
	do a=$_.split(',').collect using e
		e.to_i-1
	end
	b=a[0]
	n=a[1]
	topdigit=1
	while !nil
		#b種類で作れるitopdigit桁の数
		x=comb(b,topdigit)
		if b<topdigit || x>n
			break
		end
		n-=x
		topdigit+=1
	end
	if b<topdigit
		$stdout.print("-\n")
	else
		topdigit-=1
		curnumber=0
		d=topdigit
		do topdigit.downto(0) using d
			curnumber+=1
			while !nil
				#b-curnumber種類の数で作れるd桁の数
				x=comb(b-curnumber,d)
				if x>n
					break
				end
				n-=x
				curnumber+=1
			end
			$stdout.print((curnumber+(if curnumber < 10 then 48 else 87 end)).chr)
		end
		$stdout.print("\n")
	end
	$stdout.flush
end