Random sentence from book: Difference between revisions

Line 20:

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

<~~lang~~ algol68># generate random sentences using text from a book as a basis #

<syntaxhighlight lang="algol68"># generate random sentences using text from a book as a basis #

# use the associative array in the Associate array/iteration task #

Line 290:

FI;

close( input file )

FI</~~lang~~>

FI</syntaxhighlight>

Sample output produced with the command-line:

Line 322:

=={{header|Julia}}==

<~~lang~~ julia>""" weighted random pick of items in a Dict{String, Int} where keys are words, values counts """

<syntaxhighlight lang="julia">""" weighted random pick of items in a Dict{String, Int} where keys are words, values counts """

function weightedrandompick(dict, total)

n = rand(1:total)

Line 395:

makesentence(); makesentence(); makesentence()

end

</~~lang~~>{{out}}

</syntaxhighlight>{{out}}

<pre>

(RUN:)

Line 439:

=={{header|Nim}}==

Inspired by Julia solution, but not a translation actually.

<~~lang~~ ~~Nim~~>import random, sequtils, strutils, tables

<syntaxhighlight lang="nim">import random, sequtils, strutils, tables

from unicode import utf8

Line 533:

else:

weightedChoice(followCount[lastWord], followSum[lastWord])

echo sentence.join(" ") & lastWord</~~lang~~>

echo sentence.join(" ") & lastWord</syntaxhighlight>

Line 552:

=={{header|Perl}}==

<~~lang~~ perl>#!/usr/bin/perl

<syntaxhighlight lang="perl">#!/usr/bin/perl

use strict; # https://rosettacode.org/wiki/Random_sentence_from_book

Line 584:

}

print sentence() for 1 .. 10;</~~lang~~>

print sentence() for 1 .. 10;</syntaxhighlight>

<pre>

Line 614:

=={{header|Phix}}==

-- demo/rosetta/RandomSentence.exw

include builtins\libcurl.e

Line 690:

end for

{} = wait_key()

<pre>

Line 703:

Extended to preserve some extra "sentence pausing" characters and try and tidy-up apostrophes.

<~~lang~~ python>from urllib.request import urlopen

<syntaxhighlight lang="python">from urllib.request import urlopen

import re

from string import punctuation

Line 770:

#%%

sentence = gen_sentence(word2next, word2next2)

print(sentence)</~~lang~~>

print(sentence)</syntaxhighlight>

Line 790:

Started out as translation of [[Random_sentence_from_book#Perl|Perl]], but diverged.

<lang ~~perl6~~>my $text = '36-0.txt'.IO.slurp.subst(/.+ '*** START OF THIS' .+? \n (.*?) 'End of the Project Gutenberg EBook' .*/, {$0} );

<syntaxhighlight lang="raku" line>my $text = '36-0.txt'.IO.slurp.subst(/.+ '*** START OF THIS' .+? \n (.*?) 'End of the Project Gutenberg EBook' .*/, {$0} );

$text.=subst(/ <+punct-[.!?\’,]> /, ' ', :g);

Line 817:

}

say sentence() ~ "\n" for ^10;</~~lang~~>

say sentence() ~ "\n" for ^10;</syntaxhighlight>

<pre>To the inhabitants calling itself the Committee of Public Supply seized the opportunity of slightly shifting my position, which had caused a silent mass of smoke rose slanting and barred the face.

Line 841:

=={{header|Wren}}==

<~~lang~~ ecmascript>import "io" for File

<syntaxhighlight lang="ecmascript">import "io" for File

import "random" for Random

import "/seq" for Lst

Line 932:

System.print(sentence)

System.print()

}</~~lang~~>

}</syntaxhighlight>