C (gcc), 84 82 81 79 75 bytes
Assumes all caps.
r;f(char*s){for(r=0;*s;r+="+-+,,-*/--*-)+(+),.*,-*+)+"[*s++%65]-43);s=r>0;}
C (gcc),
gastropner
- 4.4k
- 1
- 15
- 20