Skip to content

Commit 7011afe

Browse files
cokecoke
committed
add to git
0 parents  commit 7011afe

File tree

4 files changed

+314
-0
lines changed

4 files changed

+314
-0
lines changed

‎LICENSE

+201
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,201 @@
1+
The Artistic License 2.0
2+
3+
Copyright (c) 2000-2006, The Perl Foundation.
4+
5+
Everyone is permitted to copy and distribute verbatim copies
6+
of this license document, but changing it is not allowed.
7+
8+
Preamble
9+
10+
This license establishes the terms under which a given free software
11+
Package may be copied, modified, distributed, and/or redistributed.
12+
The intent is that the Copyright Holder maintains some artistic
13+
control over the development of that Package while still keeping the
14+
Package available as open source and free software.
15+
16+
You are always permitted to make arrangements wholly outside of this
17+
license directly with the Copyright Holder of a given Package. If the
18+
terms of this license do not permit the full use that you propose to
19+
make of the Package, you should contact the Copyright Holder and seek
20+
a different licensing arrangement.
21+
22+
Definitions
23+
24+
"Copyright Holder" means the individual(s) or organization(s)
25+
named in the copyright notice for the entire Package.
26+
27+
"Contributor" means any party that has contributed code or other
28+
material to the Package, in accordance with the Copyright Holder's
29+
procedures.
30+
31+
"You" and "your" means any person who would like to copy,
32+
distribute, or modify the Package.
33+
34+
"Package" means the collection of files distributed by the
35+
Copyright Holder, and derivatives of that collection and/or of
36+
those files. A given Package may consist of either the Standard
37+
Version, or a Modified Version.
38+
39+
"Distribute" means providing a copy of the Package or making it
40+
accessible to anyone else, or in the case of a company or
41+
organization, to others outside of your company or organization.
42+
43+
"Distributor Fee" means any fee that you charge for Distributing
44+
this Package or providing support for this Package to another
45+
party. It does not mean licensing fees.
46+
47+
"Standard Version" refers to the Package if it has not been
48+
modified, or has been modified only in ways explicitly requested
49+
by the Copyright Holder.
50+
51+
"Modified Version" means the Package, if it has been changed, and
52+
such changes were not explicitly requested by the Copyright
53+
Holder.
54+
55+
"Original License" means this Artistic License as Distributed with
56+
the Standard Version of the Package, in its current version or as
57+
it may be modified by The Perl Foundation in the future.
58+
59+
"Source" form means the source code, documentation source, and
60+
configuration files for the Package.
61+
62+
"Compiled" form means the compiled bytecode, object code, binary,
63+
or any other form resulting from mechanical transformation or
64+
translation of the Source form.
65+
66+
67+
Permission for Use and Modification Without Distribution
68+
69+
(1) You are permitted to use the Standard Version and create and use
70+
Modified Versions for any purpose without restriction, provided that
71+
you do not Distribute the Modified Version.
72+
73+
74+
Permissions for Redistribution of the Standard Version
75+
76+
(2) You may Distribute verbatim copies of the Source form of the
77+
Standard Version of this Package in any medium without restriction,
78+
either gratis or for a Distributor Fee, provided that you duplicate
79+
all of the original copyright notices and associated disclaimers. At
80+
your discretion, such verbatim copies may or may not include a
81+
Compiled form of the Package.
82+
83+
(3) You may apply any bug fixes, portability changes, and other
84+
modifications made available from the Copyright Holder. The resulting
85+
Package will still be considered the Standard Version, and as such
86+
will be subject to the Original License.
87+
88+
89+
Distribution of Modified Versions of the Package as Source
90+
91+
(4) You may Distribute your Modified Version as Source (either gratis
92+
or for a Distributor Fee, and with or without a Compiled form of the
93+
Modified Version) provided that you clearly document how it differs
94+
from the Standard Version, including, but not limited to, documenting
95+
any non-standard features, executables, or modules, and provided that
96+
you do at least ONE of the following:
97+
98+
(a) make the Modified Version available to the Copyright Holder
99+
of the Standard Version, under the Original License, so that the
100+
Copyright Holder may include your modifications in the Standard
101+
Version.
102+
103+
(b) ensure that installation of your Modified Version does not
104+
prevent the user installing or running the Standard Version. In
105+
addition, the Modified Version must bear a name that is different
106+
from the name of the Standard Version.
107+
108+
(c) allow anyone who receives a copy of the Modified Version to
109+
make the Source form of the Modified Version available to others
110+
under
111+
112+
(i) the Original License or
113+
114+
(ii) a license that permits the licensee to freely copy,
115+
modify and redistribute the Modified Version using the same
116+
licensing terms that apply to the copy that the licensee
117+
received, and requires that the Source form of the Modified
118+
Version, and of any works derived from it, be made freely
119+
available in that license fees are prohibited but Distributor
120+
Fees are allowed.
121+
122+
123+
Distribution of Compiled Forms of the Standard Version
124+
or Modified Versions without the Source
125+
126+
(5) You may Distribute Compiled forms of the Standard Version without
127+
the Source, provided that you include complete instructions on how to
128+
get the Source of the Standard Version. Such instructions must be
129+
valid at the time of your distribution. If these instructions, at any
130+
time while you are carrying out such distribution, become invalid, you
131+
must provide new instructions on demand or cease further distribution.
132+
If you provide valid instructions or cease distribution within thirty
133+
days after you become aware that the instructions are invalid, then
134+
you do not forfeit any of your rights under this license.
135+
136+
(6) You may Distribute a Modified Version in Compiled form without
137+
the Source, provided that you comply with Section 4 with respect to
138+
the Source of the Modified Version.
139+
140+
141+
Aggregating or Linking the Package
142+
143+
(7) You may aggregate the Package (either the Standard Version or
144+
Modified Version) with other packages and Distribute the resulting
145+
aggregation provided that you do not charge a licensing fee for the
146+
Package. Distributor Fees are permitted, and licensing fees for other
147+
components in the aggregation are permitted. The terms of this license
148+
apply to the use and Distribution of the Standard or Modified Versions
149+
as included in the aggregation.
150+
151+
(8) You are permitted to link Modified and Standard Versions with
152+
other works, to embed the Package in a larger work of your own, or to
153+
build stand-alone binary or bytecode versions of applications that
154+
include the Package, and Distribute the result without restriction,
155+
provided the result does not expose a direct interface to the Package.
156+
157+
158+
Items That are Not Considered Part of a Modified Version
159+
160+
(9) Works (including, but not limited to, modules and scripts) that
161+
merely extend or make use of the Package, do not, by themselves, cause
162+
the Package to be a Modified Version. In addition, such works are not
163+
considered parts of the Package itself, and are not subject to the
164+
terms of this license.
165+
166+
167+
General Provisions
168+
169+
(10) Any use, modification, and distribution of the Standard or
170+
Modified Versions is governed by this Artistic License. By using,
171+
modifying or distributing the Package, you accept this license. Do not
172+
use, modify, or distribute the Package, if you do not accept this
173+
license.
174+
175+
(11) If your Modified Version has been derived from a Modified
176+
Version made by someone other than you, you are nevertheless required
177+
to ensure that your Modified Version complies with the requirements of
178+
this license.
179+
180+
(12) This license does not grant you the right to use any trademark,
181+
service mark, tradename, or logo of the Copyright Holder.
182+
183+
(13) This license includes the non-exclusive, worldwide,
184+
free-of-charge patent license to make, have made, use, offer to sell,
185+
sell, import and otherwise transfer the Package with respect to any
186+
patent claims licensable by the Copyright Holder that are necessarily
187+
infringed by the Package. If you institute patent litigation
188+
(including a cross-claim or counterclaim) against any party alleging
189+
that the Package constitutes direct or contributory patent
190+
infringement, then this Artistic License to you shall terminate on the
191+
date that such litigation is filed.
192+
193+
(14) Disclaimer of Warranty:
194+
THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS
195+
IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
196+
WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
197+
NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL
198+
LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL
199+
BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
200+
DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF
201+
ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

‎META6.json

+18
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
{
2+
"authors" : [
3+
"Will Coleda"
4+
],
5+
"auth": "zef:coke",
6+
"depends" : [
7+
"Terminal::ANSIColor"
8+
],
9+
"description" : "Command line helper for solving sudoku variants",
10+
"license" : "Artistic-2.0",
11+
"name" : "App::SudokuHelper",
12+
"perl" : "6",
13+
"resources" : [ ],
14+
"source-url" : "git://github.com/coke/sudoku-helper.git",
15+
"tags" : [ ],
16+
"test-depends" : [ ],
17+
"version" : "0.9.0"
18+
}

‎README.md

+49
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,49 @@
1+
# NAME
2+
3+
sudoku - command-line sudoku utility
4+
5+
# DESCRIPTION
6+
7+
$ sudoku combo 6
8+
6
9+
1 5
10+
2 4
11+
1 2 3
12+
13+
Display all combinations of sudoku digits that add to the given sum. Solutions
14+
displayed in order from shortest to longest, then in numerical order.
15+
16+
$ sudoku combo 30 4
17+
6 7 8 9
18+
19+
Display combinations that add to the given sum using the specified number of digits.
20+
21+
$ sudoku combo -s 6
22+
6
23+
2 4
24+
25+
$ sudoku combo --sandwich 9
26+
2 7
27+
3 6
28+
4 5
29+
2 3 4
30+
31+
Display combinations that add to the given sum that are valid for sandwich suduko.
32+
That is, that exclude the digits 1 and 9.
33+
34+
35+
$ sudoku combo -x 10
36+
2 8
37+
3 1 6
38+
3 2 5
39+
4 1 2 3
40+
41+
Display combinations where the number of digits in the combination is one of the
42+
digits. `-x` for x-sums variant, where the number outside the puzzle shows the
43+
total of the first `x` digits, where `x` is the first digit. The first digit of
44+
each row is the `x`.
45+
46+
$ sudoku combo --sequence 13
47+
6 7
48+
49+
Display only combinations where the digits form a sequence.

‎bin/sudoku

+46
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
#!/usr/bin/env perl6
2+
3+
# Allow our mode to be specified before the args.
4+
my %*SUB-MAIN-OPTS = :named-anywhere;
5+
6+
# $sum - total we're trying to get to
7+
# $count - if present, limit to entries with that many components
8+
# $n - if present, skip those numbers
9+
# $sandwich - if present, skip 1 and 9
10+
11+
# :x - sequence must contain the number of digits present as a digit.
12+
13+
multi sub MAIN("combo", Int $sum, Int $count?, Str :$n is copy = "", Bool :s(:$sandwich)=False, Bool :$sequence, Bool :$x=False) {
14+
$n = $n ~ "19" if $sandwich;
15+
16+
my @counts = $count ?? [$count] !! 1..9;
17+
18+
my @digits = (1..9).grep({ not $n.comb.grep($_)});
19+
20+
for @counts -> $length {
21+
# need a copy for -x work below
22+
for @digits.combinations($length) -> $combo is copy {
23+
next unless $combo.sum == $sum;
24+
if $sequence.DEFINITE {
25+
if $sequence {
26+
next unless ?$combo.rotor(2 => -1).map(-> ($a, $b) { $b - $a == 1 }).all
27+
} else {
28+
next if ?$combo.rotor(2 => -1).map(-> ($a, $b) { $b - $a == 1 }).all
29+
}
30+
}
31+
if $x {
32+
my $size = $combo.elems;
33+
my $pos = $combo.first($size, :k);
34+
next unless $pos.DEFINITE;
35+
if $pos > 0 {
36+
# Can't splice a list.
37+
my $c = $combo.Array;
38+
$c.splice($pos, 1);
39+
$c.unshift: $size;
40+
$combo = $c.List;
41+
}
42+
}
43+
say $combo.join(' ');
44+
}
45+
}
46+
}

0 commit comments

Comments
 (0)