Labyrinth, 80 bytes
?::`}:("(!@
perfect:
{:{:;%"}
+puts; "
}zero: "
}else{(:
"negI" _~
""""""{{{"!@
The Latin characters perfect puts zero else neg I are actually just comments*.
i.e. if the input is perfect a 0 is printed, otherwise -1 is.
* so this works too...
?::`}:("(!@
:
{:{:;%"}
+ ; "
} : "
} {(:
" " _~
""""""{{{"!@
Jonathan Allan
- 115.4k
- 8
- 68
- 293