GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-24 11:42:35 +01:00
Code Issues Projects Releases Wiki Activity

C Jeopardy: Add shuffler to preventing repeating questions

Browse Source
This commit is contained in:
Pragmatic Software 2014-07-28 15:25:54 +00:00
parent 1f8445d3bc
commit 9978f0c793
2 changed files with 63 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 751, BUILD_REVISION => 752,
BUILD_DATE => "2014-07-28", BUILD_DATE => "2014-07-28",
}; };

67
modules/cjeopardy.pl
View File

@ -6,9 +6,9 @@ use strict;
use Time::HiRes qw/gettimeofday/; use Time::HiRes qw/gettimeofday/;
use Time::Duration qw/duration/; use Time::Duration qw/duration/;
my $CJEOPARDY_FILE = 'cjeopardy.txt'; my $CJEOPARDY_FILE = 'cjeopardy.txt';
my $CJEOPARDY_DATA = 'cjeopardy.dat'; my $CJEOPARDY_DATA = 'cjeopardy.dat';
my $CJEOPARDY_SQL = 'cjeopardy.sqlite3'; my $CJEOPARDY_SHUFFLE = 'cjeopardy.shuffle';
my $TIMELIMIT = 300; my $TIMELIMIT = 300;
@ -28,12 +28,37 @@ if (defined $ret) {
if (scalar gettimeofday - $last_timestamp <= $TIMELIMIT) { if (scalar gettimeofday - $last_timestamp <= $TIMELIMIT) {
my $duration = duration($TIMELIMIT - scalar gettimeofday - $last_timestamp); my $duration = duration($TIMELIMIT - scalar gettimeofday - $last_timestamp);
print "The current question is: $last_question You will be able to request a new question in $duration.\n"; print "The current question is: $last_question You may request a new question in $duration.\n";
close $fh; close $fh;
exit; exit;
} }
} }
my $question_index;
if (not length $text) {
$ret = open $fh, "<", "$CJEOPARDY_SHUFFLE-$channel";
if (defined $ret) {
my @indices = <$fh>;
$question_index = shift @indices;
close $fh;
if (not @indices) {
print "(Shuffling.)\n";
shuffle_questions(0);
} else {
open my $fh, ">", "$CJEOPARDY_SHUFFLE-$channel" or print "Failed to shuffle questions.\n" and exit;
foreach my $index (@indices) {
print $fh $index;
}
close $fh;
}
} else {
print "(Shuffling!)\n";
$question_index = shuffle_questions(1);
}
}
my @questions; my @questions;
open $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!"; open $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!";
while (my $question = <$fh>) { while (my $question = <$fh>) {
@ -48,7 +73,11 @@ if (not @questions) {
exit; exit;
} }
my $question = $questions[int rand(@questions)]; if (length $text) {
$question_index = int rand(@questions);
}
my $question = $questions[$question_index];
my ($q, $a) = split /\|/, $question, 2; my ($q, $a) = split /\|/, $question, 2;
chomp $q; chomp $q;
@ -62,3 +91,31 @@ print $fh "$q\n";
print $fh "$a\n"; print $fh "$a\n";
print $fh scalar gettimeofday, "\n"; print $fh scalar gettimeofday, "\n";
close $fh; close $fh;
sub shuffle_questions {
my $return_index = shift @_;
open my $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!";
my (@indices, $i);
while (<$fh>) {
push @indices, $i++;
}
close $fh;
open $fh, ">", "$CJEOPARDY_SHUFFLE-$channel" or die "Could not open $CJEOPARDY_FILE: $!";
while (@indices) {
my $random_index = int rand(@indices);
my $index = $indices[$random_index];
print $fh "$index\n";
splice @indices, $random_index, 1;
if ($return_index and @indices == 1) {
close $fh;
return $indices[0];
}
}
close $fh;
}