Skip to main content
Code Golf

Return to Answer

added 149 characters in body
Source Link
theorist
theorist
  • 1.5k
  • 5
  • 12

Wolfram Mathematica, 3434 24 bytes

Tr[1^z]∣Tr[z=ToCharacterCode@#]&1∣Mean@LetterNumber@#&

Takes input as string, e.g.:-10 bytes from @att

Tr[1^z]∣Tr[z=ToCharacterCode@#]&@"abcb"

True

Try it online!

Wolfram Mathematica, 34 bytes

Tr[1^z]∣Tr[z=ToCharacterCode@#]&

Takes input as string, e.g.:

Tr[1^z]∣Tr[z=ToCharacterCode@#]&@"abcb"

True

Wolfram Mathematica, 34 24 bytes

1∣Mean@LetterNumber@#&

-10 bytes from @att

Try it online!

deleted 14 characters in body
Source Link
theorist
theorist
  • 1.5k
  • 5
  • 12

Wolfram Mathematica, 3934 bytes

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&Tr[1^z]∣Tr[z=ToCharacterCode@#]&

Takes input as string, e.g.:

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&@"abcb"Tr[1^z]∣Tr[z=ToCharacterCode@#]&@"abcb"

True

Wolfram Mathematica, 39 bytes

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&

Takes input as string, e.g.:

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&@"abcb"

True

Wolfram Mathematica, 34 bytes

Tr[1^z]∣Tr[z=ToCharacterCode@#]&

Takes input as string, e.g.:

Tr[1^z]∣Tr[z=ToCharacterCode@#]&@"abcb"

True

deleted 11 characters in body
Source Link
theorist
theorist
  • 1.5k
  • 5
  • 12

Wolfram Mathematica, 4739 bytes

Tr[z=LetterNumber@Characters@#]~Mod~Tr[1^z]==0&Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&

Takes input as string, e.g.:

 Tr[z=LetterNumber@Characters@#]~Mod~Tr[1^z]==0&@"abcb"Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&@"abcb"

True

Wolfram Mathematica, 47 bytes

Tr[z=LetterNumber@Characters@#]~Mod~Tr[1^z]==0&

Takes input as string, e.g.:

 Tr[z=LetterNumber@Characters@#]~Mod~Tr[1^z]==0&@"abcb"

True

Wolfram Mathematica, 39 bytes

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&

Takes input as string, e.g.:

Tr[z=ToCharacterCode@#]~Mod~Tr[1^z]==0&@"abcb"

True

Source Link
theorist
theorist
  • 1.5k
  • 5
  • 12