Determine sentence type: Difference between revisions

{{trans|Go}}

 

I s.empty

R ‘’

 

V s = ‘hi there, how are you today? I'd like to present to you the washing machine 9001. You have been nominated to win one of these! Just make sure you don't break it’

 

{{out}}

=={{header|ALGOL 68}}==

Classifies an empty string as "".

CHAR exclamation = "E"; # classification codes... #

CHAR question = "Q";

)

)

{{out}}

<pre>

 

=={{header|AutoHotkey}}==

Msgbox, % SentenceType(Sentence)

 

}

return (D = SubStr(Sentence, 1, 3)) ? RTrim(RTrim(type, "|"), "N|") : RTrim(type, "|")

 

{{out}}

<pre>Q|S|E|N</pre>

=={{header|AWK}}==

# syntax: GAWK -f DETERMINE_SENTENCE_TYPE.AWK

BEGIN {

sentence = ""

}

{{out}}

<pre>

 

=={{header|CLU}}==

% 'S' or 'N' for every sentence found.

% Because sentences are separated by punctuation, only the

stream$putc(po, c)

end

{{out}}

<pre>QSEN</pre>

 

=={{header|Epoxy}}==

["?"]:"Q",

["."]:"S",

cls

 

{{out}}

<pre>

This program attempts to prevent common abbreviations from ending sentences early. It also tries to handle parenthesized sentences and implements an additional type for exclamatory questions (EQ).

{{works with|Factor|0.99 2021-06-02}}

wrap.strings ;

 

"Hello, Mr. Anderson!" show

nl

{{out}}

<pre>

 

=={{header|FreeBASIC}}==

'determines the sentence type of the first sentence in the string

'returns "E" for an exclamation, "Q" for a question, "S" for serious

while len(spam)>0

print sentype(spam)

{{out}}<pre>Q

S

=={{header|Go}}==

{{trans|Wren}}

 

import (

s := "hi there, how are you today? I'd like to present to you the washing machine 9001. You have been nominated to win one of these! Just make sure you don't break it"

fmt.Println(sentenceType(s))

 

{{out}}

The following parses sentences with embedded quotations naively,

so that for example the sentence "He asked 'How are you?'." results in: Q S

# Input: a string

# Output: a stream of sentence type indicators

def s: "hi there, how are you today? I'd like to present to you the washing machine 9001. You have been nominated to win one of these! Just make sure you don't break it";

 

{{out}}

<pre>

 

=={{header|Julia}}==

Hi there, how are you today? I'd like to present to you the washing machine 9001.

You have been nominated to win one of these! Just make sure you don't break it"""

println(rpad(parsed[i] * parsed[i + 1], 52), " ==> ", haspunctotype(parsed[i + 1]))

end

<pre>

Hi there, how are you today? ==> Q

 

=={{header|Lua}}==

p2t = { [""]="N", ["."]="S", ["!"]="E", ["?"]="Q" }

for s, p in text:gmatch("%s*([^%!%?%.]+)([%!%?%.]?)") do

print(s..p..": "..p2t[p])

{{out}}

<pre>hi there, how are you today?: Q

 

=={{header|Perl}}==

use warnings;

use feature 'say';

else { say 'N' }

}

{{out}}

<pre>hi there, how are you today?| Q

 

=={{header|Phix}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">`hi there, how are you today? I'd like to present

<span style="color: #000000;">w</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">v</span><span style="color: #0000FF;">,</span><span style="color: #008000;">'|'</span><span style="color: #0000FF;">)</span>

<span style="color: #0000FF;">?</span><span style="color: #000000;">w</span>

{{out}}

<pre>

 

=={{header|Python}}==

 

txt = """

for i in range(0, len(pars)-1, 2):

print((pars[i] + pars[i + 1]).ljust(54), "==>", haspunctotype(pars[i + 1]))

<pre>

Hi there, how are you today? ==> Q

 

Or for more generality, and an alternative to hand-crafted regular expressions:

 

from functools import reduce

# MAIN ---

if __name__ == '__main__':

{{Out}}

<pre>('E', ['You have been nominated to win one of these!', "But perhaps substance isn't the goal!"])

=={{header|Raku}}==

 

 

my $paragraph = q:to/PARAGRAPH/;

default { 'N' };

}

{{out}}

<pre>hi there, how are you today? | Q

=={{header|Vlang}}==

{{trans|go}}

if s.len == 0 {

return ""

s := "hi there, how are you today? I'd like to present to you the washing machine 9001. You have been nominated to win one of these! Just make sure you don't break it"

println(sentence_type(s))

 

{{out}}

 

=={{header|Wren}}==

if (s.count == 0) return ""

var types = []

 

var s = "hi there, how are you today? I'd like to present to you the washing machine 9001. You have been nominated to win one of these! Just make sure you don't break it"

 

{{out}}

{{libheader|Wren-trait}}

The following alternative version takes the simplistic view that (unless they end the final sentence of the paragraph) '''?''', '''!''' or '''.''' will only end a sentence if they're immediately followed by a space. This of course is nonsense, given the way English is written nowadays, but it's probably an improvement on the first version without the need to search through an inevitably incomplete list of abbreviations.

import "./trait" for Indexed

 

}

System.print()

 

{{out}}

 

=={{header|XPL0}}==

int Sentence, N, Len;

char Str;

if N < 3 then ChOut(0, ^|);

];

 

{{out}}