Ideone.com

fork download

copy

#!/usr/local/bin/ruby
#(c) Copyright 2008 Darren Smith. All Rights Reserved.
$lb = []
class Gtype
	def go
		$stack<<self
	end
	def val
		@val
	end
 
	'+-|&^'.each_byte{|i|
		eval'def %c(rhs)
			if rhs.class != self.class
				a,b=coerce(rhs)
				a %c b
			else
				factory(@val %c rhs.val)
			end
		end'%([i]*3)
	}
	def ==(rhs)
		@val==rhs.val
	end
	def eql?(rhs)
		@val==rhs.val
	end
	def hash
		@val.hash
	end
	def <=>(rhs)
		@val<=>rhs.val
	end
end
 
class Gint < Gtype
	def initialize(i)
		@val = case i
			when true then 1
			when false then 0
			else;i
		end
	end
	def factory(a)
		Gint.new(a)
	end
	def to_gs
		Gstring.new(@val.to_s)
	end
	def to_int #for pack
		@val
	end
	def ginspect
		to_gs
	end
	def class_id; 0; end
	def coerce(b)
		[if b.class == Garray
			Garray.new([self])
		elsif b.class == Gstring
			to_gs
		else #Gblock
			to_gs.to_s.compile
		end,b]
	end
 
	def ~
		Gint.new(~@val)
	end
	def notop
		Gint.new(@val == 0)
	end
	'*/%<>'.each_byte{|i|
		eval'def %c(rhs)
			Gint.new(@val %c rhs.val)
		end'%[i,i]
	}
	def equalop(rhs)
		Gint.new(@val == rhs.val)
	end
	def question(b)
		Gint.new(@val**b.val)
	end
	def base(a)
		if Garray===a
			r=0
			a.val.each{|i|
				r*=@val
				r+=i.val
			}
			Gint.new(r)
		else
			i=a.val.abs
			r=[]
			while i!=0
				r.unshift Gint.new(i%@val)
				i/=@val
			end
			Garray.new(r)
		end
	end
	def leftparen
		Gint.new(@val-1)
	end
	def rightparen
		Gint.new(@val+1)
	end
end
 
class Garray < Gtype
	def initialize(a)
		@val = a
	end
	def factory(a)
		Garray.new(a)
	end
	def to_gs
		@val.inject(Gstring.new("")){|s,i|s+i.to_gs}
	end
	def flatten #maybe name to_a ?
		Garray.new(@val.inject([]){|s,i|s+case i
			when Gstring then i.val
			when Gint then [i]
			when Garray then i.flatten.val
			when Gblock then i.val
			end
		})
	end
	def ginspect
		Gstring.new('[')+Garray.new(@val.map{|i|i.ginspect})*Gstring.new(' ')+Gstring.new(']')
	end
	def go
		$stack<<self
	end
	def class_id; 1; end
	def coerce(b)
		if b.class == Gint
			b.coerce(self).reverse
		elsif b.class == Gstring
			[Gstring.new(self),b]
		else
			[(self*Gstring.new(' ')).to_s.compile,b]
		end
	end
 
	def leftparen
		[factory(@val[1..-1]),@val[0]]
	end
	def rightparen
		[factory(@val[0..-2]),@val[-1]]
	end
	def *(b)
		if b.class == Gint
			factory(@val*b.val)
		else
			return b*self if self.class == Gstring && b.class == Garray
			return self/Gint.new(1)*b if self.class == Gstring
			return b.factory([]) if @val.size<1
			r=@val.first
			r,x=r.coerce(b) if r.class != b.class #for size 1
			@val[1..-1].each{|i|r=r+b+i}
			r
		end
	end
	def /(b)
		if b.class == Gint
			r=[]
			a = b.val < 0 ? @val.reverse : @val
			i = -b = b.val.abs
			r << factory(a[i,b]) while (i+=b)<a.size
			Garray.new(r)
		else
			r=[]
			i=b.factory([])
			j=0
			while j<@val.size
				if @val[j,b.val.size]==b.val
					r<<i
					i=b.factory([])
					j+=b.val.size
				else
					i.val<<@val[j]
					j+=1
				end
			end
			r<<i
			Garray.new(r)
		end
	end
	def %(b)
		if b.class == Gint
			b=b.val
			factory((0..(@val.size-1)/b.abs).inject([]){|s,i|
				s<<@val[b < 0 ? i*b - 1 : i*b]
			})
		else
			self/b-Garray.new([Garray.new([])])
		end
	end
	def notop
		Gint.new(@val.empty?)
	end
	def question(b)
		Gint.new(@val.index(b)||-1)
	end
	def equalop(b)
		if b.class == Gint
			@val[b.val]
		else
			Gint.new(@val==b.val)
		end
	end
	def <(b)
		if b.class == Gint
			factory(@val[0...b.val])
		else
			Gint.new(@val<b.val)
		end
	end
	def >(b)
		if b.class == Gint
			factory(@val[[b.val,-@val.size].max..-1])
		else
			Gint.new(@val>b.val)
		end
	end
	def sort
		factory(@val.sort)
	end
	def zip
		r=[]
		@val.size.times{|x|
			@val[x].val.size.times{|y|
				(r[y]||=@val[0].factory([])).val<<@val[x].val[y]
			}
		}
		Garray.new(r)
	end
	def ~
		val
	end
end
 
class Gstring < Garray
	def initialize(a)
		@val=case a
			when String then a.unpack('C*').map{|i|Gint.new(i)}
			when Array then a
			when Garray then a.flatten.val
		end
	end
	def factory(a)
		Gstring.new(a)
	end
	def to_gs
		self
	end
	def ginspect
		factory(to_s.inspect)
	end
	def to_s
		@val.pack('C*')
	end
	def class_id; 2; end
	def coerce(b)
		if b.class == Gblock
			[to_s.compile,b]
		else
			b.coerce(self).reverse
		end
	end
	def question(b)
		if b.class == Gstring
			Gint.new(to_s.index(b.to_s)||-1)
		elsif b.class == Garray
			b.question(self)
		else
			Gint.new(@val.index(b)||-1)
		end
	end
	def ~
		to_s.compile.go
		nil
	end
end
 
class Gblock < Garray
	def initialize(a,b=nil)
		@val=Gstring.new(b).val
		@native = eval("lambda{#{a}}")
	end
	def go
		@native.call
	end
	def factory(b)
		Gstring.new(b).to_s.compile
	end
	def class_id; 3; end
	def to_gs
		Gstring.new("{"+Gstring.new(@val).to_s+"}")
	end
	def ginspect
		to_gs
	end
	def coerce(b)
		b.coerce(self).reverse
	end
 
	def +(b)
		if b.class != self.class
			a,b=coerce(b)
			a+b
		else
			Gstring.new(@val+Gstring.new(" ").val+b.val).to_s.compile
		end
	end
	def *(b)
		if b.class == Gint
			b.val.times{go}
		else
			gpush b.val.first
			(b.val[1..-1]||[]).each{|i|$stack<<i; go}
		end
		nil
	end
	def /(b)
		if b.class==Garray||b.class==Gstring
			b.val.each{|i|gpush i; go}
			nil
		else #unfold
			r=[]
			loop{
				$stack<<$stack.last
				go
				break if gpop.notop.val!=0;
				r<<$stack.last
				b.go
			}
			gpop
			Garray.new(r)
		end
	end
	def %(b)
		r=[]
		b.val.each{|i|
			lb=$stack.size
			$stack<<i; go
			r.concat($stack.slice!(lb..$stack.size))
		}
		r=Garray.new(r)
		b.class == Gstring ? Gstring.new(r) : r
	end
	def ~
		go
		nil
	end
	def sort
		a=gpop
		a.factory(a.val.sort_by{|i|gpush i; go; gpop})
	end
	def select(a)
		a.factory(a.val.select{|i|gpush i;go; gpop.notop.val==0})
	end
	def question(b)
		b.val.find{|i|gpush i; go; gpop.notop.val==0}
	end
end
 
class NilClass
	def go
	end
end
class Array
	def ^(rhs)
		self-rhs|rhs-self
	end
	include Comparable
end
code=gets(nil)||''
$_=$stdin.isatty ? '' : $stdin.read
$stack = [Gstring.new($_)]
$var_lookup={}
 
def var(name,val=nil)
	eval"#{s="$_#{$var_lookup[name]||=$var_lookup.size}"}||=val"
	s
end
 
$nprocs=0
 
class String
	def compile(tokens=scan(/[a-zA-Z_][a-zA-Z0-9_]*|'(?:\\.|[^'])*'?|"(?:\\.|[^"])*"?|-?[0-9]+|#[^\n\r]*|./m))
	 	orig=tokens.dup
		native=""
		while t=tokens.slice!(0)
			native<<case t
				when "{" then "$stack<<"+var("{#{$nprocs+=1}",compile(tokens))
				when "}" then break
				when ":" then var(tokens.slice!(0))+"=$stack.last"
				when /^["']/ then var(t,Gstring.new(eval(t)))+".go"
				when /^-?[0-9]+/ then var(t,Gint.new(t.to_i))+".go"
				else; var(t)+".go"
				end+"\n"
		end
		source=orig[0,orig.size-tokens.size-(t=="}"?1:0)]*""
		Gblock.new(native,source)
	end
end
def gpop
	($lb.size-1).downto(0){|i|
		break if $lb[i]<$stack.size
		$lb[i]-=1
	}
	$stack.pop
end
def gpush a
	$stack.push(*a) if a
end
 
class String
	def cc
		Gblock.new(self)
	end
	def cc1
		('a=gpop;'+self).cc
	end
	def cc2
		('b=gpop;a=gpop;'+self).cc
	end
	def cc3
		('c=gpop;b=gpop;a=gpop;'+self).cc
	end
	def order
		('b=gpop;a=gpop;a,b=b,a if a.class_id<b.class_id;'+self).cc
	end
end
 
var'[','$lb<<$stack.size'.cc
var']','gpush Garray.new($stack.slice!(($lb.pop||0)..-1))'.cc
var'~','gpush ~a'.cc1
var'`','gpush a.ginspect'.cc1
var';',''.cc1
var'.','$stack<<a<<a'.cc1
var'\\','$stack<<b<<a'.cc2
var'@','$stack<<b<<c<<a'.cc3
var'+','gpush a+b'.cc2
var'-','gpush a-b'.cc2
var'|','gpush a|b'.cc2
var'&','gpush a&b'.cc2
var'^','gpush a^b'.cc2
var'*','gpush a*b'.order
var'/','gpush a/b'.order
var'%','gpush a%b'.order
var'=','gpush a.equalop(b)'.order
var'<','gpush a<b'.order
var'>','gpush a>b'.order
var'!','gpush a.notop'.cc1
var'?','gpush a.question(b)'.order
var'$','gpush (a.class==Gint ? $stack[~a.val] : a.sort)'.cc1
var',','gpush case a
	when Gint then Garray.new([*0...a.val].map{|i|Gint.new(i)})
	when Gblock then a.select(gpop)
	when Garray then Gint.new(a.val.size)
	end'.cc1
var')','gpush a.rightparen'.cc1
var'(','gpush a.leftparen'.cc1
 
var'rand','gpush Gint.new(rand([1,a.val].max))'.cc1
var'abs','gpush Gint.new(a.val.abs)'.cc1
var'print','print a.to_gs'.cc1
var'if',"#{var'!'}.go;(gpop.val==0?a:b).go".cc2
var'do',"loop{a.go; #{var'!'}.go; break if gpop.val!=0}".cc1
var'while',"loop{a.go; #{var'!'}.go; break if gpop.val!=0; b.go}".cc2
var'until',"loop{a.go; #{var'!'}.go; break if gpop.val==0; b.go}".cc2
var'zip','gpush a.zip'.cc1
var'base','gpush b.base(a)'.cc2
 
'"\n":n;
{print n print}:puts;
{`puts}:p;
{1$if}:and;
{1$\if}:or;
{\!!{!}*}:xor;
'.compile.go
code.compile.go
gpush Garray.new($stack)
'puts'.compile.go

IyEvdXNyL2xvY2FsL2Jpbi9ydWJ5CiMoYykgQ29weXJpZ2h0IDIwMDggRGFycmVuIFNtaXRoLiBBbGwgUmlnaHRzIFJlc2VydmVkLgokbGIgPSBbXQpjbGFzcyBHdHlwZQoJZGVmIGdvCgkJJHN0YWNrPDxzZWxmCgllbmQKCWRlZiB2YWwKCQlAdmFsCgllbmQKCQoJJystfCZeJy5lYWNoX2J5dGV7fGl8CgkJZXZhbCdkZWYgJWMocmhzKQoJCQlpZiByaHMuY2xhc3MgIT0gc2VsZi5jbGFzcwoJCQkJYSxiPWNvZXJjZShyaHMpCgkJCQlhICVjIGIKCQkJZWxzZQoJCQkJZmFjdG9yeShAdmFsICVjIHJocy52YWwpCgkJCWVuZAoJCWVuZCclKFtpXSozKQoJfQoJZGVmID09KHJocykKCQlAdmFsPT1yaHMudmFsCgllbmQKCWRlZiBlcWw/KHJocykKCQlAdmFsPT1yaHMudmFsCgllbmQKCWRlZiBoYXNoCgkJQHZhbC5oYXNoCgllbmQKCWRlZiA8PT4ocmhzKQoJCUB2YWw8PT5yaHMudmFsCgllbmQKZW5kCgpjbGFzcyBHaW50IDwgR3R5cGUKCWRlZiBpbml0aWFsaXplKGkpCgkJQHZhbCA9IGNhc2UgaQoJCQl3aGVuIHRydWUgdGhlbiAxCgkJCXdoZW4gZmFsc2UgdGhlbiAwCgkJCWVsc2U7aQoJCWVuZAoJZW5kCglkZWYgZmFjdG9yeShhKQoJCUdpbnQubmV3KGEpCgllbmQKCWRlZiB0b19ncwoJCUdzdHJpbmcubmV3KEB2YWwudG9fcykKCWVuZAoJZGVmIHRvX2ludCAjZm9yIHBhY2sKCQlAdmFsCgllbmQKCWRlZiBnaW5zcGVjdAoJCXRvX2dzCgllbmQKCWRlZiBjbGFzc19pZDsgMDsgZW5kCglkZWYgY29lcmNlKGIpCgkJW2lmIGIuY2xhc3MgPT0gR2FycmF5CgkJCUdhcnJheS5uZXcoW3NlbGZdKQoJCWVsc2lmIGIuY2xhc3MgPT0gR3N0cmluZwoJCQl0b19ncwoJCWVsc2UgI0dibG9jawoJCQl0b19ncy50b19zLmNvbXBpbGUKCQllbmQsYl0KCWVuZAoJCglkZWYgfgoJCUdpbnQubmV3KH5AdmFsKQoJZW5kCglkZWYgbm90b3AKCQlHaW50Lm5ldyhAdmFsID09IDApCgllbmQKCScqLyU8PicuZWFjaF9ieXRle3xpfAoJCWV2YWwnZGVmICVjKHJocykKCQkJR2ludC5uZXcoQHZhbCAlYyByaHMudmFsKQoJCWVuZCclW2ksaV0KCX0KCWRlZiBlcXVhbG9wKHJocykKCQlHaW50Lm5ldyhAdmFsID09IHJocy52YWwpCgllbmQKCWRlZiBxdWVzdGlvbihiKQoJCUdpbnQubmV3KEB2YWwqKmIudmFsKQoJZW5kCglkZWYgYmFzZShhKQoJCWlmIEdhcnJheT09PWEKCQkJcj0wCgkJCWEudmFsLmVhY2h7fGl8CgkJCQlyKj1AdmFsCgkJCQlyKz1pLnZhbAoJCQl9CgkJCUdpbnQubmV3KHIpCgkJZWxzZQoJCQlpPWEudmFsLmFicwoJCQlyPVtdCgkJCXdoaWxlIGkhPTAKCQkJCXIudW5zaGlmdCBHaW50Lm5ldyhpJUB2YWwpCgkJCQlpLz1AdmFsCgkJCWVuZAoJCQlHYXJyYXkubmV3KHIpCgkJZW5kCgllbmQKCWRlZiBsZWZ0cGFyZW4KCQlHaW50Lm5ldyhAdmFsLTEpCgllbmQKCWRlZiByaWdodHBhcmVuCgkJR2ludC5uZXcoQHZhbCsxKQoJZW5kCmVuZAoKY2xhc3MgR2FycmF5IDwgR3R5cGUKCWRlZiBpbml0aWFsaXplKGEpCgkJQHZhbCA9IGEKCWVuZAoJZGVmIGZhY3RvcnkoYSkKCQlHYXJyYXkubmV3KGEpCgllbmQKCWRlZiB0b19ncwoJCUB2YWwuaW5qZWN0KEdzdHJpbmcubmV3KCIiKSl7fHMsaXxzK2kudG9fZ3N9CgllbmQKCWRlZiBmbGF0dGVuICNtYXliZSBuYW1lIHRvX2EgPwoJCUdhcnJheS5uZXcoQHZhbC5pbmplY3QoW10pe3xzLGl8cytjYXNlIGkKCQkJd2hlbiBHc3RyaW5nIHRoZW4gaS52YWwKCQkJd2hlbiBHaW50IHRoZW4gW2ldCgkJCXdoZW4gR2FycmF5IHRoZW4gaS5mbGF0dGVuLnZhbAoJCQl3aGVuIEdibG9jayB0aGVuIGkudmFsCgkJCWVuZAoJCX0pCgllbmQKCWRlZiBnaW5zcGVjdAoJCUdzdHJpbmcubmV3KCdbJykrR2FycmF5Lm5ldyhAdmFsLm1hcHt8aXxpLmdpbnNwZWN0fSkqR3N0cmluZy5uZXcoJyAnKStHc3RyaW5nLm5ldygnXScpCgllbmQKCWRlZiBnbwoJCSRzdGFjazw8c2VsZgoJZW5kCglkZWYgY2xhc3NfaWQ7IDE7IGVuZAoJZGVmIGNvZXJjZShiKQoJCWlmIGIuY2xhc3MgPT0gR2ludAoJCQliLmNvZXJjZShzZWxmKS5yZXZlcnNlCgkJZWxzaWYgYi5jbGFzcyA9PSBHc3RyaW5nCgkJCVtHc3RyaW5nLm5ldyhzZWxmKSxiXQoJCWVsc2UKCQkJWyhzZWxmKkdzdHJpbmcubmV3KCcgJykpLnRvX3MuY29tcGlsZSxiXQoJCWVuZAoJZW5kCgkKCWRlZiBsZWZ0cGFyZW4KCQlbZmFjdG9yeShAdmFsWzEuLi0xXSksQHZhbFswXV0KCWVuZAoJZGVmIHJpZ2h0cGFyZW4KCQlbZmFjdG9yeShAdmFsWzAuLi0yXSksQHZhbFstMV1dCgllbmQKCWRlZiAqKGIpCgkJaWYgYi5jbGFzcyA9PSBHaW50CgkJCWZhY3RvcnkoQHZhbCpiLnZhbCkKCQllbHNlCgkJCXJldHVybiBiKnNlbGYgaWYgc2VsZi5jbGFzcyA9PSBHc3RyaW5nICYmIGIuY2xhc3MgPT0gR2FycmF5CgkJCXJldHVybiBzZWxmL0dpbnQubmV3KDEpKmIgaWYgc2VsZi5jbGFzcyA9PSBHc3RyaW5nCgkJCXJldHVybiBiLmZhY3RvcnkoW10pIGlmIEB2YWwuc2l6ZTwxCgkJCXI9QHZhbC5maXJzdAoJCQlyLHg9ci5jb2VyY2UoYikgaWYgci5jbGFzcyAhPSBiLmNsYXNzICNmb3Igc2l6ZSAxCgkJCUB2YWxbMS4uLTFdLmVhY2h7fGl8cj1yK2IraX0KCQkJcgoJCWVuZAoJZW5kCglkZWYgLyhiKQoJCWlmIGIuY2xhc3MgPT0gR2ludAoJCQlyPVtdCgkJCWEgPSBiLnZhbCA8IDAgPyBAdmFsLnJldmVyc2UgOiBAdmFsCgkJCWkgPSAtYiA9IGIudmFsLmFicwoJCQlyIDw8IGZhY3RvcnkoYVtpLGJdKSB3aGlsZSAoaSs9Yik8YS5zaXplCgkJCUdhcnJheS5uZXcocikKCQllbHNlCgkJCXI9W10KCQkJaT1iLmZhY3RvcnkoW10pCgkJCWo9MAoJCQl3aGlsZSBqPEB2YWwuc2l6ZQoJCQkJaWYgQHZhbFtqLGIudmFsLnNpemVdPT1iLnZhbAoJCQkJCXI8PGkKCQkJCQlpPWIuZmFjdG9yeShbXSkKCQkJCQlqKz1iLnZhbC5zaXplCgkJCQllbHNlCgkJCQkJaS52YWw8PEB2YWxbal0KCQkJCQlqKz0xCgkJCQllbmQKCQkJZW5kCgkJCXI8PGkKCQkJR2FycmF5Lm5ldyhyKQoJCWVuZAoJZW5kCglkZWYgJShiKQoJCWlmIGIuY2xhc3MgPT0gR2ludAoJCQliPWIudmFsCgkJCWZhY3RvcnkoKDAuLihAdmFsLnNpemUtMSkvYi5hYnMpLmluamVjdChbXSl7fHMsaXwKCQkJCXM8PEB2YWxbYiA8IDAgPyBpKmIgLSAxIDogaSpiXQoJCQl9KQoJCWVsc2UKCQkJc2VsZi9iLUdhcnJheS5uZXcoW0dhcnJheS5uZXcoW10pXSkKCQllbmQKCWVuZAoJZGVmIG5vdG9wCgkJR2ludC5uZXcoQHZhbC5lbXB0eT8pCgllbmQKCWRlZiBxdWVzdGlvbihiKQoJCUdpbnQubmV3KEB2YWwuaW5kZXgoYil8fC0xKQoJZW5kCglkZWYgZXF1YWxvcChiKQoJCWlmIGIuY2xhc3MgPT0gR2ludAoJCQlAdmFsW2IudmFsXQoJCWVsc2UKCQkJR2ludC5uZXcoQHZhbD09Yi52YWwpCgkJZW5kCgllbmQKCWRlZiA8KGIpCgkJaWYgYi5jbGFzcyA9PSBHaW50CgkJCWZhY3RvcnkoQHZhbFswLi4uYi52YWxdKQoJCWVsc2UKCQkJR2ludC5uZXcoQHZhbDxiLnZhbCkKCQllbmQKCWVuZAoJZGVmID4oYikKCQlpZiBiLmNsYXNzID09IEdpbnQKCQkJZmFjdG9yeShAdmFsW1tiLnZhbCwtQHZhbC5zaXplXS5tYXguLi0xXSkKCQllbHNlCgkJCUdpbnQubmV3KEB2YWw+Yi52YWwpCgkJZW5kCgllbmQKCWRlZiBzb3J0CgkJZmFjdG9yeShAdmFsLnNvcnQpCgllbmQKCWRlZiB6aXAKCQlyPVtdCgkJQHZhbC5zaXplLnRpbWVze3x4fAoJCQlAdmFsW3hdLnZhbC5zaXplLnRpbWVze3x5fAoJCQkJKHJbeV18fD1AdmFsWzBdLmZhY3RvcnkoW10pKS52YWw8PEB2YWxbeF0udmFsW3ldCgkJCX0KCQl9CgkJR2FycmF5Lm5ldyhyKQoJZW5kCglkZWYgfgoJCXZhbAoJZW5kCmVuZAoKY2xhc3MgR3N0cmluZyA8IEdhcnJheQoJZGVmIGluaXRpYWxpemUoYSkKCQlAdmFsPWNhc2UgYQoJCQl3aGVuIFN0cmluZyB0aGVuIGEudW5wYWNrKCdDKicpLm1hcHt8aXxHaW50Lm5ldyhpKX0KCQkJd2hlbiBBcnJheSB0aGVuIGEKCQkJd2hlbiBHYXJyYXkgdGhlbiBhLmZsYXR0ZW4udmFsCgkJZW5kCgllbmQKCWRlZiBmYWN0b3J5KGEpCgkJR3N0cmluZy5uZXcoYSkKCWVuZAoJZGVmIHRvX2dzCgkJc2VsZgoJZW5kCglkZWYgZ2luc3BlY3QKCQlmYWN0b3J5KHRvX3MuaW5zcGVjdCkKCWVuZAoJZGVmIHRvX3MKCQlAdmFsLnBhY2soJ0MqJykKCWVuZAoJZGVmIGNsYXNzX2lkOyAyOyBlbmQKCWRlZiBjb2VyY2UoYikKCQlpZiBiLmNsYXNzID09IEdibG9jawoJCQlbdG9fcy5jb21waWxlLGJdCgkJZWxzZQoJCQliLmNvZXJjZShzZWxmKS5yZXZlcnNlCgkJZW5kCgllbmQKCWRlZiBxdWVzdGlvbihiKQoJCWlmIGIuY2xhc3MgPT0gR3N0cmluZwoJCQlHaW50Lm5ldyh0b19zLmluZGV4KGIudG9fcyl8fC0xKQoJCWVsc2lmIGIuY2xhc3MgPT0gR2FycmF5CgkJCWIucXVlc3Rpb24oc2VsZikKCQllbHNlCgkJCUdpbnQubmV3KEB2YWwuaW5kZXgoYil8fC0xKQoJCWVuZAoJZW5kCglkZWYgfgoJCXRvX3MuY29tcGlsZS5nbwoJCW5pbAoJZW5kCmVuZAoKY2xhc3MgR2Jsb2NrIDwgR2FycmF5CglkZWYgaW5pdGlhbGl6ZShhLGI9bmlsKQoJCUB2YWw9R3N0cmluZy5uZXcoYikudmFsCgkJQG5hdGl2ZSA9IGV2YWwoImxhbWJkYXsje2F9fSIpCgllbmQKCWRlZiBnbwoJCUBuYXRpdmUuY2FsbAoJZW5kCglkZWYgZmFjdG9yeShiKQoJCUdzdHJpbmcubmV3KGIpLnRvX3MuY29tcGlsZQoJZW5kCglkZWYgY2xhc3NfaWQ7IDM7IGVuZAoJZGVmIHRvX2dzCgkJR3N0cmluZy5uZXcoInsiK0dzdHJpbmcubmV3KEB2YWwpLnRvX3MrIn0iKQoJZW5kCglkZWYgZ2luc3BlY3QKCQl0b19ncwoJZW5kCglkZWYgY29lcmNlKGIpCgkJYi5jb2VyY2Uoc2VsZikucmV2ZXJzZQoJZW5kCgkKCWRlZiArKGIpCgkJaWYgYi5jbGFzcyAhPSBzZWxmLmNsYXNzCgkJCWEsYj1jb2VyY2UoYikKCQkJYStiCgkJZWxzZQoJCQlHc3RyaW5nLm5ldyhAdmFsK0dzdHJpbmcubmV3KCIgIikudmFsK2IudmFsKS50b19zLmNvbXBpbGUKCQllbmQKCWVuZAoJZGVmICooYikKCQlpZiBiLmNsYXNzID09IEdpbnQKCQkJYi52YWwudGltZXN7Z299CgkJZWxzZQoJCQlncHVzaCBiLnZhbC5maXJzdAoJCQkoYi52YWxbMS4uLTFdfHxbXSkuZWFjaHt8aXwkc3RhY2s8PGk7IGdvfQoJCWVuZAoJCW5pbAoJZW5kCglkZWYgLyhiKQoJCWlmIGIuY2xhc3M9PUdhcnJheXx8Yi5jbGFzcz09R3N0cmluZwoJCQliLnZhbC5lYWNoe3xpfGdwdXNoIGk7IGdvfQoJCQluaWwKCQllbHNlICN1bmZvbGQKCQkJcj1bXQoJCQlsb29wewoJCQkJJHN0YWNrPDwkc3RhY2subGFzdAoJCQkJZ28KCQkJCWJyZWFrIGlmIGdwb3Aubm90b3AudmFsIT0wOwoJCQkJcjw8JHN0YWNrLmxhc3QKCQkJCWIuZ28KCQkJfQoJCQlncG9wCgkJCUdhcnJheS5uZXcocikKCQllbmQKCWVuZAoJZGVmICUoYikKCQlyPVtdCgkJYi52YWwuZWFjaHt8aXwKCQkJbGI9JHN0YWNrLnNpemUKCQkJJHN0YWNrPDxpOyBnbwoJCQlyLmNvbmNhdCgkc3RhY2suc2xpY2UhKGxiLi4kc3RhY2suc2l6ZSkpCgkJfQoJCXI9R2FycmF5Lm5ldyhyKQoJCWIuY2xhc3MgPT0gR3N0cmluZyA/IEdzdHJpbmcubmV3KHIpIDogcgoJZW5kCglkZWYgfgoJCWdvCgkJbmlsCgllbmQKCWRlZiBzb3J0CgkJYT1ncG9wCgkJYS5mYWN0b3J5KGEudmFsLnNvcnRfYnl7fGl8Z3B1c2ggaTsgZ287IGdwb3B9KQoJZW5kCglkZWYgc2VsZWN0KGEpCgkJYS5mYWN0b3J5KGEudmFsLnNlbGVjdHt8aXxncHVzaCBpO2dvOyBncG9wLm5vdG9wLnZhbD09MH0pCgllbmQKCWRlZiBxdWVzdGlvbihiKQoJCWIudmFsLmZpbmR7fGl8Z3B1c2ggaTsgZ287IGdwb3Aubm90b3AudmFsPT0wfQoJZW5kCmVuZAoKY2xhc3MgTmlsQ2xhc3MKCWRlZiBnbwoJZW5kCmVuZApjbGFzcyBBcnJheQoJZGVmIF4ocmhzKQoJCXNlbGYtcmhzfHJocy1zZWxmCgllbmQKCWluY2x1ZGUgQ29tcGFyYWJsZQplbmQKY29kZT1nZXRzKG5pbCl8fCcnCiRfPSRzdGRpbi5pc2F0dHkgPyAnJyA6ICRzdGRpbi5yZWFkCiRzdGFjayA9IFtHc3RyaW5nLm5ldygkXyldCiR2YXJfbG9va3VwPXt9CgpkZWYgdmFyKG5hbWUsdmFsPW5pbCkKCWV2YWwiI3tzPSIkXyN7JHZhcl9sb29rdXBbbmFtZV18fD0kdmFyX2xvb2t1cC5zaXplfSJ9fHw9dmFsIgoJcwplbmQKCiRucHJvY3M9MAoKY2xhc3MgU3RyaW5nCglkZWYgY29tcGlsZSh0b2tlbnM9c2NhbigvW2EtekEtWl9dW2EtekEtWjAtOV9dKnwnKD86XFwufFteJ10pKic/fCIoPzpcXC58W14iXSkqIj98LT9bMC05XSt8I1teXG5ccl0qfC4vbSkpCgkgCW9yaWc9dG9rZW5zLmR1cAoJCW5hdGl2ZT0iIgoJCXdoaWxlIHQ9dG9rZW5zLnNsaWNlISgwKQoJCQluYXRpdmU8PGNhc2UgdAoJCQkJd2hlbiAieyIgdGhlbiAiJHN0YWNrPDwiK3ZhcigieyN7JG5wcm9jcys9MX0iLGNvbXBpbGUodG9rZW5zKSkKCQkJCXdoZW4gIn0iIHRoZW4gYnJlYWsKCQkJCXdoZW4gIjoiIHRoZW4gdmFyKHRva2Vucy5zbGljZSEoMCkpKyI9JHN0YWNrLmxhc3QiCgkJCQl3aGVuIC9eWyInXS8gdGhlbiB2YXIodCxHc3RyaW5nLm5ldyhldmFsKHQpKSkrIi5nbyIKCQkJCXdoZW4gL14tP1swLTldKy8gdGhlbiB2YXIodCxHaW50Lm5ldyh0LnRvX2kpKSsiLmdvIgoJCQkJZWxzZTsgdmFyKHQpKyIuZ28iCgkJCQllbmQrIlxuIgoJCWVuZAoJCXNvdXJjZT1vcmlnWzAsb3JpZy5zaXplLXRva2Vucy5zaXplLSh0PT0ifSI/MTowKV0qIiIKCQlHYmxvY2submV3KG5hdGl2ZSxzb3VyY2UpCgllbmQKZW5kCmRlZiBncG9wCgkoJGxiLnNpemUtMSkuZG93bnRvKDApe3xpfAoJCWJyZWFrIGlmICRsYltpXTwkc3RhY2suc2l6ZQoJCSRsYltpXS09MQoJfQoJJHN0YWNrLnBvcAplbmQKZGVmIGdwdXNoIGEKCSRzdGFjay5wdXNoKCphKSBpZiBhCmVuZAoKY2xhc3MgU3RyaW5nCglkZWYgY2MKCQlHYmxvY2submV3KHNlbGYpCgllbmQKCWRlZiBjYzEKCQkoJ2E9Z3BvcDsnK3NlbGYpLmNjCgllbmQKCWRlZiBjYzIKCQkoJ2I9Z3BvcDthPWdwb3A7JytzZWxmKS5jYwoJZW5kCglkZWYgY2MzCgkJKCdjPWdwb3A7Yj1ncG9wO2E9Z3BvcDsnK3NlbGYpLmNjCgllbmQKCWRlZiBvcmRlcgoJCSgnYj1ncG9wO2E9Z3BvcDthLGI9YixhIGlmIGEuY2xhc3NfaWQ8Yi5jbGFzc19pZDsnK3NlbGYpLmNjCgllbmQKZW5kCgp2YXInWycsJyRsYjw8JHN0YWNrLnNpemUnLmNjCnZhciddJywnZ3B1c2ggR2FycmF5Lm5ldygkc3RhY2suc2xpY2UhKCgkbGIucG9wfHwwKS4uLTEpKScuY2MKdmFyJ34nLCdncHVzaCB+YScuY2MxCnZhcidgJywnZ3B1c2ggYS5naW5zcGVjdCcuY2MxCnZhcic7JywnJy5jYzEKdmFyJy4nLCckc3RhY2s8PGE8PGEnLmNjMQp2YXInXFwnLCckc3RhY2s8PGI8PGEnLmNjMgp2YXInQCcsJyRzdGFjazw8Yjw8Yzw8YScuY2MzCnZhcicrJywnZ3B1c2ggYStiJy5jYzIKdmFyJy0nLCdncHVzaCBhLWInLmNjMgp2YXInfCcsJ2dwdXNoIGF8YicuY2MyCnZhcicmJywnZ3B1c2ggYSZiJy5jYzIKdmFyJ14nLCdncHVzaCBhXmInLmNjMgp2YXInKicsJ2dwdXNoIGEqYicub3JkZXIKdmFyJy8nLCdncHVzaCBhL2InLm9yZGVyCnZhciclJywnZ3B1c2ggYSViJy5vcmRlcgp2YXInPScsJ2dwdXNoIGEuZXF1YWxvcChiKScub3JkZXIKdmFyJzwnLCdncHVzaCBhPGInLm9yZGVyCnZhcic+JywnZ3B1c2ggYT5iJy5vcmRlcgp2YXInIScsJ2dwdXNoIGEubm90b3AnLmNjMQp2YXInPycsJ2dwdXNoIGEucXVlc3Rpb24oYiknLm9yZGVyCnZhcickJywnZ3B1c2ggKGEuY2xhc3M9PUdpbnQgPyAkc3RhY2tbfmEudmFsXSA6IGEuc29ydCknLmNjMQp2YXInLCcsJ2dwdXNoIGNhc2UgYQoJd2hlbiBHaW50IHRoZW4gR2FycmF5Lm5ldyhbKjAuLi5hLnZhbF0ubWFwe3xpfEdpbnQubmV3KGkpfSkKCXdoZW4gR2Jsb2NrIHRoZW4gYS5zZWxlY3QoZ3BvcCkKCXdoZW4gR2FycmF5IHRoZW4gR2ludC5uZXcoYS52YWwuc2l6ZSkKCWVuZCcuY2MxCnZhcicpJywnZ3B1c2ggYS5yaWdodHBhcmVuJy5jYzEKdmFyJygnLCdncHVzaCBhLmxlZnRwYXJlbicuY2MxCgp2YXIncmFuZCcsJ2dwdXNoIEdpbnQubmV3KHJhbmQoWzEsYS52YWxdLm1heCkpJy5jYzEKdmFyJ2FicycsJ2dwdXNoIEdpbnQubmV3KGEudmFsLmFicyknLmNjMQp2YXIncHJpbnQnLCdwcmludCBhLnRvX2dzJy5jYzEKdmFyJ2lmJywiI3t2YXInISd9LmdvOyhncG9wLnZhbD09MD9hOmIpLmdvIi5jYzIKdmFyJ2RvJywibG9vcHthLmdvOyAje3ZhcichJ30uZ287IGJyZWFrIGlmIGdwb3AudmFsIT0wfSIuY2MxCnZhcid3aGlsZScsImxvb3B7YS5nbzsgI3t2YXInISd9LmdvOyBicmVhayBpZiBncG9wLnZhbCE9MDsgYi5nb30iLmNjMgp2YXIndW50aWwnLCJsb29we2EuZ287ICN7dmFyJyEnfS5nbzsgYnJlYWsgaWYgZ3BvcC52YWw9PTA7IGIuZ299Ii5jYzIKdmFyJ3ppcCcsJ2dwdXNoIGEuemlwJy5jYzEKdmFyJ2Jhc2UnLCdncHVzaCBiLmJhc2UoYSknLmNjMgoKJyJcbiI6bjsKe3ByaW50IG4gcHJpbnR9OnB1dHM7CntgcHV0c306cDsKezEkaWZ9OmFuZDsKezEkXGlmfTpvcjsKe1whIXshfSp9OnhvcjsKJy5jb21waWxlLmdvCmNvZGUuY29tcGlsZS5nbwpncHVzaCBHYXJyYXkubmV3KCRzdGFjaykKJ3B1dHMnLmNvbXBpbGUuZ28=

Success #stdin #stdout 0.01s 5028KB

stdin

copy

'4' '3' ~\1{1{*}?}{@\+@*}:?~

stdout

copy

13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084096

https://ideone.com/eW2F3

language:

Ruby (ruby 2.5.5)

created:

visibility:

public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language