Skip to main content
Code Golf

Return to Answer

added 24 characters in body
Source Link
lynn
lynn
  • 69.2k
  • 11
  • 133
  • 283

Haskell, 632642 bytes

f" "="SPACE";f"\""="QUOTATION MARK";f"."="FULL STOP";f";"="SEMICOLON";f"<"="LESS-THAN SIGN";f"="="EQUALS SIGN";f">"="GREATER-THAN SIGN";f"\\"="REVERSE SOLIDUS";f"-"="HYPHEN-MINUS";f x|x>"Z"="LATINx="LATIN SMALL"<>if LETTERx>"Z"then"SMALL "<>x;fLETTER x="LATIN"<>x CAPITALelse"CAPITAL LETTER "<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"f\" \"=\"SPACE\";f\"\\\"\"=\"QUOTATION MARK\";f\".\"=\"FULL STOP\";f\";\"=\"SEMICOLON\";f\"<\"=\"LESS-THAN SIGN\";f\"=\"=\"EQUALS SIGN\";f\">\"=\"GREATER-THAN SIGN\";f\"\\\\\"=\"REVERSE SOLIDUS\";f\"-\"=\"HYPHEN-MINUS\";f x|x>\"Z\"=\"LATINx=\"LATIN SMALL\"<>if LETTERx>\"Z\"then\"SMALL \"<>x;fLETTER x=\"LATIN\"<>x CAPITALelse\"CAPITAL LETTER \"<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"

Try it online!Try it online!

Haskell, 632 bytes

f" "="SPACE";f"\""="QUOTATION MARK";f"."="FULL STOP";f";"="SEMICOLON";f"<"="LESS-THAN SIGN";f"="="EQUALS SIGN";f">"="GREATER-THAN SIGN";f"\\"="REVERSE SOLIDUS";f"-"="HYPHEN-MINUS";f x|x>"Z"="LATIN SMALL LETTER "<>x;f x="LATIN CAPITAL LETTER "<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"f\" \"=\"SPACE\";f\"\\\"\"=\"QUOTATION MARK\";f\".\"=\"FULL STOP\";f\";\"=\"SEMICOLON\";f\"<\"=\"LESS-THAN SIGN\";f\"=\"=\"EQUALS SIGN\";f\">\"=\"GREATER-THAN SIGN\";f\"\\\\\"=\"REVERSE SOLIDUS\";f\"-\"=\"HYPHEN-MINUS\";f x|x>\"Z\"=\"LATIN SMALL LETTER \"<>x;f x=\"LATIN CAPITAL LETTER \"<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"

Try it online!

Haskell, 642 bytes

f" "="SPACE";f"\""="QUOTATION MARK";f"."="FULL STOP";f";"="SEMICOLON";f"<"="LESS-THAN SIGN";f"="="EQUALS SIGN";f">"="GREATER-THAN SIGN";f"\\"="REVERSE SOLIDUS";f"-"="HYPHEN-MINUS";f x="LATIN "<>if x>"Z"then"SMALL LETTER "<>x else"CAPITAL LETTER "<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"f\" \"=\"SPACE\";f\"\\\"\"=\"QUOTATION MARK\";f\".\"=\"FULL STOP\";f\";\"=\"SEMICOLON\";f\"<\"=\"LESS-THAN SIGN\";f\"=\"=\"EQUALS SIGN\";f\">\"=\"GREATER-THAN SIGN\";f\"\\\\\"=\"REVERSE SOLIDUS\";f\"-\"=\"HYPHEN-MINUS\";f x=\"LATIN \"<>if x>\"Z\"then\"SMALL LETTER \"<>x else\"CAPITAL LETTER \"<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"

Try it online!

deleted 110 characters in body
Source Link
lynn
lynn
  • 69.2k
  • 11
  • 133
  • 283

Haskell, 728632 bytes

f ' '="SPACE";f '"'="QUOTATION MARK";f '\''="APOSTROPHE";f '('="LEFT PARENTHESIS";f ')'="RIGHTf" PARENTHESIS";f"="SPACE";f"\""="QUOTATION 'MARK";f".'="FULL STOP";f ';'="SEMICOLON";f"="FULL '<'="LESSSTOP";f";"="SEMICOLON";f"<"="LESS-THAN SIGN";f '='="EQUALS SIGN";fSIGN";f"="="EQUALS '>'="GREATERSIGN";f">"="GREATER-THAN SIGN";f '\\'="REVERSESIGN";f"\\"="REVERSE SOLIDUS";fSOLIDUS";f"-"="HYPHEN-MINUS";f x|x>'Z'="LATINx|x>"Z"="LATIN SMALL LETTER "<>pure x;f"<>x;f x="LATIN CAPITAL LETTER "<>pure x;main=(mapM(putStrLn"<>x;u=putStrLn.f).(id<>show))"f ' '=\"SPACE\";f '\"'=\"QUOTATION MARK\";f '\\''=\"APOSTROPHE\";f '('=\"LEFT PARENTHESIS\";f ')'=\"RIGHT PARENTHESIS\";fpure;s=id<>show;n=mapM 'u.'=\"FULLs;main=n"f\" STOP\";f\"=\"SPACE\";f\"\\\"\"=\"QUOTATION ';'=\"SEMICOLON\";fMARK\";f\".\"=\"FULL '<'=\"LESSSTOP\";f\";\"=\"SEMICOLON\";f\"<\"=\"LESS-THAN SIGN\";f '='=\"EQUALS SIGN\";fSIGN\";f\"=\"=\"EQUALS '>'=\"GREATERSIGN\";f\">\"=\"GREATER-THAN SIGN\";f '\\\\'=\"REVERSESIGN\";f\"\\\\\"=\"REVERSE SOLIDUS\";fSOLIDUS\";f\"-\"=\"HYPHEN-MINUS\";f x|x>'Z'=\"LATINx|x>\"Z\"=\"LATIN SMALL LETTER \"<>pure x;f\"<>x;f x=\"LATIN CAPITAL LETTER \"<>pure x;main=(mapM(putStrLn\"<>x;u=putStrLn.f).(id<>show))"pure;s=id<>show;n=mapM u.s;main=n"

Try it online!Try it online!

Haskell, 728 bytes

f ' '="SPACE";f '"'="QUOTATION MARK";f '\''="APOSTROPHE";f '('="LEFT PARENTHESIS";f ')'="RIGHT PARENTHESIS";f '.'="FULL STOP";f ';'="SEMICOLON";f '<'="LESS-THAN SIGN";f '='="EQUALS SIGN";f '>'="GREATER-THAN SIGN";f '\\'="REVERSE SOLIDUS";f x|x>'Z'="LATIN SMALL LETTER "<>pure x;f x="LATIN CAPITAL LETTER "<>pure x;main=(mapM(putStrLn.f).(id<>show))"f ' '=\"SPACE\";f '\"'=\"QUOTATION MARK\";f '\\''=\"APOSTROPHE\";f '('=\"LEFT PARENTHESIS\";f ')'=\"RIGHT PARENTHESIS\";f '.'=\"FULL STOP\";f ';'=\"SEMICOLON\";f '<'=\"LESS-THAN SIGN\";f '='=\"EQUALS SIGN\";f '>'=\"GREATER-THAN SIGN\";f '\\\\'=\"REVERSE SOLIDUS\";f x|x>'Z'=\"LATIN SMALL LETTER \"<>pure x;f x=\"LATIN CAPITAL LETTER \"<>pure x;main=(mapM(putStrLn.f).(id<>show))"

Try it online!

Haskell, 632 bytes

f" "="SPACE";f"\""="QUOTATION MARK";f"."="FULL STOP";f";"="SEMICOLON";f"<"="LESS-THAN SIGN";f"="="EQUALS SIGN";f">"="GREATER-THAN SIGN";f"\\"="REVERSE SOLIDUS";f"-"="HYPHEN-MINUS";f x|x>"Z"="LATIN SMALL LETTER "<>x;f x="LATIN CAPITAL LETTER "<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"f\" \"=\"SPACE\";f\"\\\"\"=\"QUOTATION MARK\";f\".\"=\"FULL STOP\";f\";\"=\"SEMICOLON\";f\"<\"=\"LESS-THAN SIGN\";f\"=\"=\"EQUALS SIGN\";f\">\"=\"GREATER-THAN SIGN\";f\"\\\\\"=\"REVERSE SOLIDUS\";f\"-\"=\"HYPHEN-MINUS\";f x|x>\"Z\"=\"LATIN SMALL LETTER \"<>x;f x=\"LATIN CAPITAL LETTER \"<>x;u=putStrLn.f.pure;s=id<>show;n=mapM u.s;main=n"

Try it online!

Source Link
lynn
lynn
  • 69.2k
  • 11
  • 133
  • 283

Haskell, 728 bytes

f ' '="SPACE";f '"'="QUOTATION MARK";f '\''="APOSTROPHE";f '('="LEFT PARENTHESIS";f ')'="RIGHT PARENTHESIS";f '.'="FULL STOP";f ';'="SEMICOLON";f '<'="LESS-THAN SIGN";f '='="EQUALS SIGN";f '>'="GREATER-THAN SIGN";f '\\'="REVERSE SOLIDUS";f x|x>'Z'="LATIN SMALL LETTER "<>pure x;f x="LATIN CAPITAL LETTER "<>pure x;main=(mapM(putStrLn.f).(id<>show))"f ' '=\"SPACE\";f '\"'=\"QUOTATION MARK\";f '\\''=\"APOSTROPHE\";f '('=\"LEFT PARENTHESIS\";f ')'=\"RIGHT PARENTHESIS\";f '.'=\"FULL STOP\";f ';'=\"SEMICOLON\";f '<'=\"LESS-THAN SIGN\";f '='=\"EQUALS SIGN\";f '>'=\"GREATER-THAN SIGN\";f '\\\\'=\"REVERSE SOLIDUS\";f x|x>'Z'=\"LATIN SMALL LETTER \"<>pure x;f x=\"LATIN CAPITAL LETTER \"<>pure x;main=(mapM(putStrLn.f).(id<>show))"

Try it online!