duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix indentation RubiksCubePatterns.pm

master
Mailkov 2015-12-05 15:08:53 +00:00
parent ec8e6f2f4d
commit 08c9a4b8ed
1 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
lib/DDG/Goodie/RubiksCubePatterns.pm
View File

@ -27,43 +27,43 @@ zci answer_type => "rubiks_cube";
zci is_cached => 1; zci is_cached => 1;
my %patterns = ( my %patterns = (
"stripes" => "F U F R L2 B D' R D2 L D' B R2 L F U F", "stripes" => "F U F R L2 B D' R D2 L D' B R2 L F U F",
"crosses" => "U F B' L2 U2 L2 F' B U2 L2 U", "crosses" => "U F B' L2 U2 L2 F' B U2 L2 U",
"swap centers" => "U D' R L' F B' U D'", "swap centers" => "U D' R L' F B' U D'",
"checkerboard" => "F2 B2 R2 L2 U2 D2", "checkerboard" => "F2 B2 R2 L2 U2 D2",
"cube in a cube" => "F L F U' R U F2 L2 U' L' B D' B' L2 U", "cube in a cube" => "F L F U' R U F2 L2 U' L' B D' B' L2 U",
"cube in a cube in a cube" => "U' L' U' F' R2 B' R F U B2 U B' L U' F U R F'", "cube in a cube in a cube" => "U' L' U' F' R2 B' R F U B2 U B' L U' F U R F'",
"exchanged peaks" => "F2 R2 D R2 U D F2 D' R' D' F L2 F' D R U'", "exchanged peaks" => "F2 R2 D R2 U D F2 D' R' D' F L2 F' D R U'",
"t's" => "F2 R2 U2 F' B D2 L2 F B", "t's" => "F2 R2 U2 F' B D2 L2 F B",
"anaconda" => "L U B' U' R L' B R' F B' D R D' F'", "anaconda" => "L U B' U' R L' B R' F B' D R D' F'",
"python" => "F2 R' B' U R' L F' L F' B D' R B L2", "python" => "F2 R' B' U R' L F' L F' B D' R B L2",
"black mamba" => "R D L F' R L' D R' U D' B U' R' D'", "black mamba" => "R D L F' R L' D R' U D' B U' R' D'",
); );
sub to_titlecase($) sub to_titlecase($)
{ {
$a = pop; $a = pop;
$a =~ s/(\w\S*)/\u\L$1/g; $a =~ s/(\w\S*)/\u\L$1/g;
$a =~ s/ In / in /g; $a =~ s/ In / in /g;
$a =~ s/ A / a /g; $a =~ s/ A / a /g;
return $a; return $a;
} }
sub render_text($) { sub render_text($) {
my $name = pop; my $name = pop;
return to_titlecase($name) . ": $patterns{$name} \n"; return to_titlecase($name) . ": $patterns{$name} \n";
} }
handle remainder_lc => sub { handle remainder_lc => sub {
#support British English! #support British English!
s/centre/center/; s/centre/center/;
#hack for the trigger "rubiks cube in a cube" #hack for the trigger "rubiks cube in a cube"
s/^in a cube/cube in a cube/; s/^in a cube/cube in a cube/;
my %patterns_answer; my %patterns_answer;
my $output; my $output;
my $title; my $title;
my $subtitle; my $subtitle;
@ -73,14 +73,14 @@ handle remainder_lc => sub {
$subtitle = "Rubiks cube '" . to_titlecase($_) . "' pattern"; $subtitle = "Rubiks cube '" . to_titlecase($_) . "' pattern";
} else { } else {
return if ($_ ne ''); return if ($_ ne '');
foreach my $pattern (keys %patterns) { foreach my $pattern (keys %patterns) {
$output .= render_text($pattern); $output .= render_text($pattern);
} }
$title = 'Rubiks cube patterns'; $title = 'Rubiks cube patterns';
%patterns_answer = %patterns; %patterns_answer = %patterns;
} }
return $output, return $output,
structured_answer => { structured_answer => {
id => 'rubiks_cube_patterns', id => 'rubiks_cube_patterns',
name => 'Answer', name => 'Answer',
@ -90,12 +90,12 @@ handle remainder_lc => sub {
record_data => \%patterns_answer, record_data => \%patterns_answer,
}, },
templates => { templates => {
group => 'list', group => 'list',
options => { options => {
content => 'record', content => 'record',
}
} }
}; }
};
}; };
1; 1;