Determine sentence type: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H (second version)) |
(Add bruijn) |
||
Line 160: | Line 160: | ||
N Neutral |
N Neutral |
||
</pre> |
</pre> |
||
=={{header|Bruijn}}== |
|||
<syntaxhighlight lang="bruijn"> |
|||
:import std/List . |
|||
:import std/Char . |
|||
determine [∅?0 '?' ([(0 =? '?' 'Q' (0 =? '.' 'S' (0 =? '!' 'E' 'N')))] _0)] |
|||
:test (determine empty) ('?') |
|||
:test (determine "hi there, how are you today?") ('Q') |
|||
:test (determine "I'd like to present to you the washing machine 9001.") ('S') |
|||
:test (determine "You have been nominated to win one of these!") ('E') |
|||
:test (determine "Just make sure you don't break it") ('N') |
|||
</syntaxhighlight> |
|||
=={{header|C++}}== |
=={{header|C++}}== |