Welcome to the Lounge

These birds have evolved creative strategies to avoid getting over­cooked. Some species stand around panting like dogs, others are forced to seek out shade. Yellow-eyed penguins trek over half a mile inland (quite a marathon for those little legs) to raise their chicks in the cool of the New Zealand rainforest. Galápagos penguins avoid the brutal equatorial sun by nesting in uncomfortable-looking cracks of coastal lava rock. Humboldt penguins arguably have it even worse. Living on the barren coast of Peru they are forced to improvise shade by carving castles of crap from piles of their own mature manure. Fairy penguins solved the problem by shunning the sun altogether and becoming nocturnal.

jmp id, int, space, error

id: ; [A-Z_a-z][0-9A-Z_a-z]*
set "A".."Z", "_", "a".."z"
id_loop: jmp id_part, id_done
id_part: set "0".."9", "A".."Z", "_", "a".."z"
jmp id_loop
id_done: save 1
match 0

int: ; (0|\-?[1-9][0-9]*)
jmp int_zero, int_nonzero
int_zero:
char "0"
jmp int_done
int_nonzero: jmp int_neg, int_pos
int_neg: char "-"
int_pos: set "1".."9"
int_loop: 
jmp int_part, int_done
int_part: set "0".."9"
jmp int_loop
int_done: save 1
match 1

space: ; (\t|\n|\v|\f|\r| )
set "\t", "\n", "\v", "\f", "\r", " "
save 1
match 2

error: ; anything not caught above returns -1
any
save 1
match -1

save 0
switch case "A".."Z","_","a".."z":id_part, case "0":int_done,case "-":int_neg,case "1".."9":int_digits,case "\t", "\n", "\v", "\f", "\r", " ":space,default:error

id_part:
switch case "0".."9","A".."Z","_","a".."z":id_part, default:id_done
id_done:
save 1
match 0

int_neg:
set "1".."9"
int_digits:
switch case "0".."9":int_digits, default:int_done
int_done:
save 1
match 1

space:
save 1
match 2

error:
any
save 1
match -1