words should strip punctuation #78

New Issue

scott · 2024-06-15T15:44:37Z

scott commented

2024-06-15 15:44:37 +00:00

Right now it just splits on spaces, no removing any punctuation marks

scott added this to the 0.2.0 milestone 2024-06-15 15:44:37 +00:00

scott modified the milestone from 0.2.0 to Computer Class

2024-06-15 15:56:19 +00:00

scott commented

2024-06-15 15:56:52 +00:00

Add to prelude this Ludus code:

fn strip_punctuation {
 ("{x},{y}") -> strip_punctuation ("{x}{y}")
 ("{x}.{y}") -> strip_punctuation ("{x}{y}")
 ("{x};{y}") -> strip_punctuation ("{x}{y}")
 ("{x}:{y}") -> strip_punctuation ("{x}{y}")
 ("{x}?{y}") -> strip_punctuation ("{x}{y}")
 ("{x}!{y}") -> strip_punctuation ("{x}{y}")
 (x) -> x
}

fn trim_left {
 (" {x}") -> trim_left ("{x}")
 ("\n{x}") -> trim_left ("{x}")
 ("\t{x}") -> trim_left ("{x}")
 (x) -> x
}

fn trim_right {
 ("{x} ") -> trim_right ("{x}")
 ("{x}\n") -> trim_right ("{x}")
 ("{x}\t") -> trim_right ("{x}")
 (x) -> x
}

fn trim (x) -> do x > trim_left > trim_right

Add to prelude this Ludus code: ``` fn strip_punctuation { ("{x},{y}") -> strip_punctuation ("{x}{y}") ("{x}.{y}") -> strip_punctuation ("{x}{y}") ("{x};{y}") -> strip_punctuation ("{x}{y}") ("{x}:{y}") -> strip_punctuation ("{x}{y}") ("{x}?{y}") -> strip_punctuation ("{x}{y}") ("{x}!{y}") -> strip_punctuation ("{x}{y}") (x) -> x } fn trim_left { (" {x}") -> trim_left ("{x}") ("\n{x}") -> trim_left ("{x}") ("\t{x}") -> trim_left ("{x}") (x) -> x } fn trim_right { ("{x} ") -> trim_right ("{x}") ("{x}\n") -> trim_right ("{x}") ("{x}\t") -> trim_right ("{x}") (x) -> x } fn trim (x) -> do x > trim_left > trim_right ```

scott commented

2024-06-16 02:41:20 +00:00

Done.

scott closed this issue

2024-06-16 02:41:20 +00:00

Sign in to join this conversation.