Years 51 - 60 (7 Billion Humans)

This is a list of solutions for years 51 - 60 in 7 Billion Humans.
== Year 51 ==
-- 7 Billion Humans (2231) --
-- 51: Identify Yourselves --
a:
mem1 = calc mem1 + 1
if w != nothing:
	jump a
endif
pickup s
write mem1
step s
drop
== Year 52 ==
-- 7 Billion Humans (2231) --
-- 52: The Mode Code --
mem4 = nearest datacube
a:
step w
if w == worker:
	mem3 = calc mem3 + 1
	jump a
endif
b:
c:
if c == mem3:
	mem1 = calc mem1 + 1
endif
if n == datacube or
 c != datacube:
	step n
	jump c
endif
step e
d:
if c == mem3:
	mem1 = calc mem1 + 1
endif
if s == datacube:
	step s
	jump d
endif
if e == datacube:
	step e
	jump b
endif
pickup mem4
write mem1
drop
== Year 53 ==
-- 7 Billion Humans (2231) --
-- 53: 100 Cubes on the Floor --
a:
step w
if c != datacube:
	jump a
endif
b:
if s != wall:
	step sw
	mem1 = calc mem1 + 1
	jump b
endif
c:
pickup c
write mem1
drop
if n != wall:
	mem1 = calc mem1 + 10
	step n
	jump c
endif
== Year 54 ==
-- 7 Billion Humans (2235) --
-- 54: Terrain Leveler --
a:
step n
if c == datacube:
	mem1 = calc mem1 + c
	if n == nothing:
		pickup c
		write mem1
		if e == worker:
			listenfor hi
			mem1 = calc e + myitem
			write mem1
		endif
		tell w hi
		if w == worker:
			listenfor hi
			mem1 = set w
			write mem1
		endif
		tell e hi
		mem1 = calc myitem / 49
		b:
		write mem1
		drop
		step s
		pickup c
		jump b
	endif
endif
jump a
== Year 55 ==
-- 7 Billion Humans (2235) --
-- 55: Data Flowers --
pickup s
a:
step n
if s != datacube:
	jump a
endif
mem1 = foreachdir nw,w,sw,n,s,ne,e,se:
	mem2 = calc mem2 + mem1
endfor
write mem2
drop
== Year 56 ==
-- 7 Billion Humans (2231) --
-- 56: Local Maximums --
step w
step w
mem1 = foreachdir nw,w,sw,n,s,ne,e,se:
	if mem1 > mem2:
		mem2 = set mem1
	endif
endfor
pickup mem2
mem3 = nearest shredder
giveto mem3
== Year 57 ==
-- 7 Billion Humans (2231) --
-- 57: Neighborly Sweeper --
if e == wall:
	mem4 = set 1
endif
a:
mem2 = set 0
if mem4 == 1:
	step w
else:
	step e
endif
if c == datacube:
	mem1 = foreachdir nw,w,sw,n,s,ne,e,se:
		if mem1 == datacube:
			mem2 = calc mem2 + 1
		endif
	endfor
	pickup c
	write mem2
	drop
endif
jump a
== Year 58 ==
-- 7 Billion Humans (2235) --
-- 58: Good Neighbors --
a:
if nw != datacube and
 w != datacube and
 se != datacube or
 c != datacube:
	b:
	step nw,w,sw,n,s,ne,e,se
	jump a
endif
pickup c
c:
if c == datacube or
 nw == datacube or
 w == datacube or
 se == datacube:
	step nw,w,sw,n,s,ne,e,se
	jump c
endif
drop
jump b
== Year 59 ==
-- 7 Billion Humans (2231) --
-- 59: Glory Hole --
mem1 = nearest datacube
a:
step mem1
mem2 = foreachdir nw,w,sw,n,s,ne,e,se:
	if mem1 == 1 and
	 mem2 == hole or
	 mem2 < mem1:
		mem1 = set mem2
		jump a
	endif
endfor
== Year 60 ==
-- 7 Billion Humans (2235) --
-- 60: Understaffed Sorting --
a:
if sw > s and
 s == datacube and
 w != worker:
	pickup sw
	drop
	pickup s
	step sw
	drop
	pickup ne
	step e
	drop
	step n
endif
step w,e
jump a
== See also ==
*Original guide by Pukeface and Brachragon
Category:7 Billion Humans