Η πρώτη μου λύση στο επίπεδο 67 (Decimal Doubler) στο 7ΒΗ

Η πρώτη μου λύση ,σε σχέση με τα υποβληθέντα από betatesters
αποτελέσματα είναι στις χειρότερες και απο πλευράς εντολών (68) και απο χρόνου|
η χειρότερη! 1300 δευτ.

Στο gif φαίνεται η αρχή μόνο (για λόγους μεγέθους του αρχείου) αλλά φαίνεται οπτικά η λογική μου.

Κάθε εργάτης διπλασιάζει το ψηφίο του και να έχει κρατούμενο το προσθέτει μόνος στον στον διπλανό του.

 

 

 

 

-- 7 Billion Humans (2053) --
-- 67: Decimal Doubler --

if nw == worker:
	step s
	listenfor hi
	a:
	step s
	step n
	tell nw ok
	listenfor go
	jump a
endif
step s
pickup c
mem1 = set myitem
mem1 = calc mem1 + 0
step s
drop
step n
tell everyone hi
b:
c:
d:
listenfor ok
step s
pickup c
mem2 = set myitem
if mem2 != mem1:
	mem1 = calc mem1 x 2
	mem1 = calc mem1 + 1
	drop
	jump e
else:
	if mem2 == 0 and
	 nw != worker:
		tell everyone go
		drop
		step n
		jump d
	else:
		if mem2 == 0:
			tell nw ok
			drop
			step n
			jump c
		endif
	endif
endif
drop
mem1 = calc mem1 x 2
e:
mem2 = calc mem1 - 10
if mem1 < 10:
	mem3 = set mem1
else:
	pickup w
	mem4 = set myitem
	if mem4 == 9:
		mem4 = set 0
	else:
		mem4 = calc mem4 + 1
	endif
	write mem4
	step w
	drop
	step e
	mem3 = calc mem1 - 10
endif
pickup c
write mem3
mem1 = set mem3
drop
step n
if w != worker:
	tell everyone go
endif
tell w ok
jump b




Ετικέτες:, , ,

Αφήστε μια απάντηση