9 lines
469 B
Text
9 lines
469 B
Text
( (sentence="I want a number such that that number will be even.")
|
|
& out$(@(!sentence:I ?) & "sentence starts with 'I'" | "sentence does not start with 'I'")
|
|
& out$(@(!sentence:? such ?) & "sentence contains 'such'" | "sentence does not contain 'such'")
|
|
& out$(@(!sentence:? "even.") & "sentence ends with 'even.'" | "sentence does not end with 'even.'")
|
|
& 0:?N
|
|
& ( @(!sentence:? be (? & !N+1:?N & ~))
|
|
| out$str$("sentence contains " !N " occurrences of 'be'")
|
|
)
|
|
)
|