# This script uses the reduced DCG grammar and generates all sentences up to a certain length.
# The result is stored in "sentences.txt".
#
# Author: Tobias Kuhn

./reduce_dcg

echo "sentence count"
cat sentences.txt | wc -l
echo "unique sentence count"
sort -u sentences.txt | wc -l
echo "generate sentences..."
time swipl -g "consult(dcg_r), length(S, L), (L > 7 ; phrase(textelement(_), S), writeq(S), nl, fail)." -t halt 2> /dev/null | sort > sentences.txt
echo "finished."
echo "sentence count"
cat sentences.txt | wc -l
echo "unique sentence count"
sort -u sentences.txt | wc -l
