Fixes in 2005/aidan and add alt code

The alt code is in the README.md. It felt like it should be alt code
based on what the author stated.

Fixed the perl test suite. The script hardcoded the name of the binary
but this was not 'aidan' as the author submitted it as 'sudoku-sf'. This
broke the script (though I did not test it before, only after).

Added to the list of files noted by the author those which were in the
tarball and changed the names of any incorrectly named files to be
correct.

The author stated that in the US sudoku is known not as sudoku but
rather Number Place. This however is not true so I removed it as it most
likely isn't confusing but still not right (I didn't believe the name,
hadn't seen it and did a search and found nothing of the sort).

Since the author is from the UK and since they used British English
spelling I changed 'period' to 'full stop' as it should be (the author
put a '.' in parentheses so it's not confusing to anyone who doesn't
know the term anyway).

Format fix README.md.

Typo fixes.

Update .gitignore due to alt code.
This commit is contained in:
Cody Boone Ferguson committed 2023-04-27 08:49:45 -07:00
1 parent ca56f68cb4
commit 8ccdfde9b1
5 files changed
+136 -89

No files matched your search

+1
View File
@@ -1 +1,2 @@
aidan
aidan.alt
+2 -2
View File
@@ -113,8 +113,8 @@ DATA= blank.sudoku insane1.sudoku insane2.sudoku insane3.sudoku insane4.sudoku \
insane5.sudoku tough1.sudoku wp.sudoku
TARGET= ${PROG}
#
ALT_OBJ=
ALT_TARGET=
ALT_OBJ= ${PROG}.alt.o
ALT_TARGET= ${PROG}.alt
#################
+123 -86
View File
@@ -1,8 +1,8 @@
# Most ingenious puzzle solution
Aidan Thornton
United Kingdom
makomk@lycos.co.uk
Aidan Thornton
United Kingdom
makomk@lycos.co.uk
## To build:
@@ -14,12 +14,23 @@ make
```sh
./aidan < puzzle
./aidan seed
```
where `seed` is a number.
[Cody Boone Ferguson](/winners.html#Cody_Boone_Ferguson) fixed the test script,
described by the author in their remarks, to refer to the proper compiled
program (it's hardcoded) which was never done which broke the script. Thank you
Cody!
## Try:
```sh
./aidan < insane1.sudoku
./aidan 42
```
## Judges' remarks:
@@ -27,36 +38,47 @@ make
Are you puzzled about puzzles? This entry might puzzle you
more while it puzzles out some puzzles: all in a puzzling way!
Goto the source and notice the lack of functions. Jump
to the switch statement. And if you think you can puzzle
it out better, try solving insane1.sudoku all by yourself!
`Goto` the source and notice the lack of functions. Jump
to the `switch` statement. And if you think you can puzzle
it out better, try solving [insane1.sudoku](insane1.sudoku) all by yourself!
NOTE: some of the files listed below by the author were either removed or
renamed. The removed file in question was a tarball but the files were extracted
into the directory instead. These files were added to the list. We also removed
the README.md which was at one point named `sudoku-sf.txt`. The author submitted
the program as `sudoku-sf.c` which was renamed and changed in their comments.
## Author's remarks:
This program can solve a type of logic puzzle known as a Sudoku, and also
generate new ones. (Apparently, the puzzle is known as Number Place in the US,
but we in the UK got it via Japan, where it's quite common in magazines, etc.
These things happen sometimes.)
generate new ones.
### Contents
* build file: build.txt - you don't need this
* program file: sudoku-sf.c - sudoku solver and generator
* remarks file: sudoku-sf.txt - this file
* info file: test-su.perl - optional test script (written for Perl5)
* info file: eg-sudoku.tar - various assorted example sudokus
* build file: build.txt - you don't need this
* program file: [aidan.c](aidan.c) - sudoku solver and generator
* test suite: [test-su.perl](test-su.perl) - optional test script (written for Perl5)
* sudoku file: [blank.sudoku](blank.sudoku)
* sudoku file: [insane1.sudoku](insane1.sudoku)
* sudoku file: [insane2.sudoku](insane2.sudoku)
* sudoku file: [insane3.sudoku](insane3.sudoku)
* sudoku file: [insane4.sudoku](insane4.sudoku)
* sudoku file: [insane5.sudoku](insane5.sudoku)
* sudoku file: [tough1.sudoku](tough1.sudoku)
* sudoku file: [wp.sudoku](wp.sudoku)
**XXX - now the tar file includes the test script and the examples**
Yes, the test suite really is 5 times larger than the actual program. You
**did** say this was a parody of the software development process...
> **IMPORTANT!**
>
> test.perl expects the sudoku-sf executable to be `./sudoku-sf`. If you rename
> it, please change the definition of $sf_exe to the new name
>
> **IMPORTANT!**
### IMPORTANT
[test.perl](test-su.perl) expects the `sudoku-sf` executable to be
`./sudoku-sf`. If you rename it, please change the definition of `$sf_exe` to the
new name.
> Judges' note: this was done.
### Legal blurb
@@ -70,14 +92,13 @@ it as you wish, though please give me credit.
### What is a sudoku?
(If you know, feel free to skip this section. Get more details from [the
wikipedia entry])
[the wikipedia entry]: http://en.wikipedia.org/wiki/Sudoku
wikipedia entry](http://en.wikipedia.org/wiki/Sudoku))
A sudoku is a type of logic puzzle. You are given a grid of 9x9 boxes, some
of which contain digits. This is divided into nine 3x3 boxes, e.g. (from the
Wikipedia article - fairly easy):
```
. . . | 1 . . | 7 4 .
. 5 . | . 9 . | . 3 2
. . 6 | 7 . . | 9 . .
@@ -89,23 +110,28 @@ Wikipedia article - fairly easy):
. . 4 | . . 7 | 3 . .
7 3 . | . 2 . | . 6 .
. 6 5 | . . 4 | . . .
```
You have to fill in the remaining boxes so that each row, column, and smaller
box contains all of the digits 1-9. That's all the information I needed to
figure out how to solve them, but there's a useful tutorial on
<http://www.sudoku.org.uk/>, which is roughly affiliated with the Daily
Telegraph (a UK newspaper).
<http://www.sudoku.org.uk/>, which is roughly affiliated with the [Daily
Telegraph](https://www.telegraph.co.uk/), a UK newspaper.
Now, with modern computers this **can** be solved using brute force, e.g.:
#include <stdio.h> /* sudoku-bfi.c */
#define S(t) for(n=0;n<9;v[n++]=0);for(n=0;n<81;n++)if(i[n]){z=1<<i[n];if(v[t]\
&z)for(;;){if(p<0)goto d;if(i[p]++<9)goto f;i[p]=0;p=s[p];}v[t]|=z;}
int i[82],s[81],v[9],n,p,z;int main(void){for(n=0;n<81;){p=getchar()^48;if(p==
30)p=0;if(p<10)i[n++]=p;}i[81]=0;p=-1;f:S(n%9)S(n/9)S(n%9/3+n/27*3)if(p>80)goto
d;for(n=p;i[++p];);s[p]=n;i[p]=1;goto f;d:z=p<81;printf("\n%s!\n\n",z?"Fail":
"Success");for(n=0;n<81;){p=i[n];printf("%c %s",(p?p|48:'.'),(++n%3?"":n%9?"| "
:n%27?"\n":n%81?"\n------+-------+------\n":"\n\n"));}return z;}
```c
#include <stdio.h> /* sudoku-bfi.c */
#define S(t) for(n=0;n<9;v[n++]=0);for(n=0;n<81;n++)if(i[n]){z=1<<i[n];if(v[t]\
&z)for(;;){if(p<0)goto d;if(i[p]++<9)goto f;i[p]=0;p=s[p];}v[t]|=z;}
int i[82],s[81],v[9],n,p,z;int main(void){for(n=0;n<81;){p=getchar()^48;if(p==
30)p=0;if(p<10)i[n++]=p;}i[81]=0;p=-1;f:S(n%9)S(n/9)S(n%9/3+n/27*3)if(p>80)goto
d;for(n=p;i[++p];);s[p]=n;i[p]=1;goto f;d:z=p<81;printf("\n%s!\n\n",z?"Fail":
"Success");for(n=0;n<81;){p=i[n];printf("%c %s",(p?p|48:'.'),(++n%3?"":n%9?"| "
:n%27?"\n":n%81?"\n------+-------+------\n":"\n\n"));}return z;}
```
> Judges' note: this was added as [aidan.alt.c](aidan.alt.c).
That isn't the approach I've used; it's slow (particularly in worst-case or
nearly so scenarios), inelegant, and not a good starting point for sudoku
@@ -116,6 +142,7 @@ hopefully more reliably).
Oh, and if you think that example sudoku is too easy, try this one (which my
program generated):
```
--- insane1.sudoku --
. . 4 | . . . | . 5 6
5 . . | . 7 2 | . . .
@@ -128,56 +155,64 @@ program generated):
. 5 . | 2 . 1 | 4 . 8
3 . . | . . . | . . .
. . . | . . . | . 6 1
```
Be warned - it's evil! (I certainly haven't been able to solve it by hand. The
brute-force program given above, sudoku-bfi.c, also has trouble - it took 66
seconds to solve it - but probably for different reasons. That's the worst
performance I've had from brute-force so far!)
brute-force program given above, `sudoku-bfi.c` ([aidan.alt.c](aidan.alt.c)),
also has trouble - it took 66 seconds to solve it - but probably for different
reasons. That's the worst performance I've had from brute-force so far!)
### Usage
#### Building
cc -o sudoku-bf sudoku-bf.c
```sh
cc -o sudoku-sf sudoku-sf.c
```
-- or, if using gcc, try --
or, if using gcc, try:
gcc -O2 -Wall -Wextra -ansi -pedantic-errors -o sudoku-sf sudoku-sf.c
```sh
gcc -O2 -Wall -Wextra -ansi -pedantic-errors -o sudoku-sf sudoku-sf.c
```
-- or, if using gcc and feeling lazy --
sh build.txt
#### Testing (optional)
perl ./test-su.perl
```sh
perl ./test-su.perl
```
Note that this requires Perl 5 (I use 5.8.5, earlier versions untested) and is
somewhat slow (should take under a minute on a fairly modern PC - try
appending "-n 0" if you're in a hurry). I wrote it mostly for my own benefit,
appending `-n 0` if you're in a hurry). I wrote it mostly for my own benefit,
really.
#### Solving
./sudoku-sf < somefile.txt
```sh
./aidan < somefile.txt
```
Input should be the numbers of each row in turn. Empty spaces can be
represented as a period (.) or zero (0). Other characters are ignored, so you
represented as a full stop (.) or zero (0). Other characters are ignored, so you
can cut-and-paste either example sudoku from above into a file and feed that
in. The program has coped with every input I've thrown at it so far, including
an empty grid.
an [empty grid](blank.sudoku).
Output consists of the problem, then the solution, then a message of
success/failure.
`./sudoku-sf U` (capital U), may also be useful, or perhaps not. It only took
`./aidan` (capital `U`), may also be useful, or perhaps not. It only took
an extra 15 bytes of (very simple) code to add, so it doesn't really matter to
me. (It's the same as the normal mode for most input you're likely to feed in,
me. (It's the same as the normal mode for most input you're likely to feed it,
though slightly slower. See if you can figure out what it does.)
#### Generating
./sudoku <seed>
```sh
./sudoku <seed>
```
Output is a blank grid, then the solution, then the problem. There's no
control over the difficulty. Sorry. However, all generated sudokus should have
@@ -188,21 +223,21 @@ exactly one solution - if one doesn't, that's a bug.
Fast enough. Solving and generating are practically instant on my 1Ghz Duron.
Of course, there could be some cases which take longer...
More precisely - 400 random sudokus are generated and solved in about 45
seconds in tests on my PC (1Ghz Duron, gcc 3.4.1, -O2 optimisation - takes
about 60 seconds with no optimisation). If that isn't fast enough, what on
Earth are you doing with it?
More precisely - 400 random sudokus are generated and solved in about 45 seconds
in tests on my PC (1Ghz Duron, gcc 3.4.1, `-O2` optimisation - takes about 60
seconds with no optimisation). If that isn't fast enough, what on Earth are you
doing with it?
### Bugs
None known - hopefully I've worked out all the major ones. Nothing has come up
in testing since the last bugfix, but what does that mean?
in testing since the last bug fix, but what does that mean?
Tested on:
- gcc 3.4.1-3mdk, Linux/x86
- `gcc 3.4.1-3mdk`, Linux/x86
*RETEST* Borland C 4.5, 16-bit DOS .exe (small memory model)
*RETEST* Borland C 4.5, 16-bit DOS .exe (small memory model)
I don't count the fact that it first prints a blank grid whenever asked to
generate a sudoku as a bug - just a minor quirk. The fix is slightly awkward
@@ -211,17 +246,17 @@ important.
### Missing Features
* No control over the difficulty of generated sudokus - they vary from easy
to hair-tugging near-impossibility. Solver beware. Seeing as apparently one
program [took six years], I'm in no hurry.
* No control over the difficulty of generated sudokus - they vary from easy to
hair-tugging near-impossibility. Solver beware. Seeing as apparently one program
[took six years](http://news.bbc.co.uk/1/hi/magazine/4469719.stm), I'm in no
hurry.
[took six years]: http://news.bbc.co.uk/1/hi/magazine/4469719.stm
* Some sort of curses-based UI to let you solve interactively might be cool,
* Some sort of curses-based UI to let you solve interactively might be cool,
but I don't feel like learning curses just for this. Besides, I spent enough
of the time swearing as it is.
* If you mistype a sudoku (e.g. from a paper/magazine) - and you will it
* If you mistype a sudoku (e.g. from a paper/magazine) - and you will - it
can't help you figure out where the mistake is, sadly.
### Portability
@@ -231,8 +266,10 @@ least 32. (No, that isn't a typo - I did say 15, not 16).
Also requires that cpp can properly handle something like:
#define foo(x,y) x y
foo(bar,)
```c
#define foo(x,y) x y
foo(bar,)
```
Apparently, a few can't (ANSI C specifically doesn't require that this works,
though it usually does). Unfortunately, I didn't discover this issue until too
@@ -243,35 +280,35 @@ of obscure compiler limitations" section, so I'm figuring it's quite unusual.)
Some when compiled with `gcc -Wall -Wextra -ansi -pedantic`:
* The left-hand operand of a comma has no effect in two places
* Parentheses are suggested around a + in an operand of & in the "i" macro
* The left-hand operand of a comma has no effect in two places
* Parentheses are suggested around a `+` in an operand of `&` in the `i` macro
definition.
Borland C also spots some code in expressions which has no effect, and some
uses of '=' where you'd expect a comparison operator.
uses of `=` where you'd expect a comparison operator.
### Obfuscation
Let's see now:
* Squint-inducing variable naming
* Slightly odd `#defines` (which will be cleaned up by cpp + a code
beautifier, but see the next item)
* No functions but main() - all code reuse via #defines, or by various other
methods (usually somewhat icky ones). This wasn't deliberate - it just ended
up that way somehow...
* Gotos from everywhere to everywhere else
* A slightly... interesting switch statement.
* Generally odd flow of control (see above items)
* Plenty of bit-twiddling
* To save space, no 'A'-style char constants - hard-coded numbers are used.
(There's one, but it isn't used to make things **clearer**)
* `array[index]` notation, because:
- a) it's traditional
- b) take a look at how the s and N(I,l) macros are used
* various other little things not worth mentioning
* Squint-inducing variable naming.
* Slightly odd `#defines` (which will be cleaned up by `cpp` + a code
beautifier, but see the next item).
* No functions but `main()` - all code reuse via `#define`s, or by various other
methods (usually somewhat icky ones). This wasn't deliberate - it just ended up
that way somehow...
* `goto`s from everywhere to everywhere else.
* A slightly... interesting `switch` statement.
* Generally odd flow of control (see above items).
* Plenty of bit-twiddling.
* To save space, no `'A'`-style char constants - hard-coded numbers are used.
(There's one, but it isn't used to make things **clearer**).
* `array[index]` notation, because:
- it's traditional
- take a look at how the `s` and `N(I,l)` macros are used
* various other little things not worth mentioning.
So basically, just what you'd normally expect in an IOCCC entry
So basically, just what you'd normally expect in an IOCCC entry.
## Copyright and CC BY-SA 4.0 License:
+9
View File
@@ -0,0 +1,9 @@
#include <stdio.h> /* sudoku-bfi.c */
#define S(t) for(n=0;n<9;v[n++]=0);for(n=0;n<81;n++)if(i[n]){z=1<<i[n];if(v[t]\
&z)for(;;){if(p<0)goto d;if(i[p]++<9)goto f;i[p]=0;p=s[p];}v[t]|=z;}
int i[82],s[81],v[9],n,p,z;int main(void){for(n=0;n<81;){p=getchar()^48;if(p==
30)p=0;if(p<10)i[n++]=p;}i[81]=0;p=-1;f:S(n%9)S(n/9)S(n%9/3+n/27*3)if(p>80)goto
d;for(n=p;i[++p];);s[p]=n;i[p]=1;goto f;d:z=p<81;printf("\n%s!\n\n",z?"Fail":
"Success");for(n=0;n<81;){p=i[n];printf("%c %s",(p?p|48:'.'),(++n%3?"":n%9?"| "
:n%27?"\n":n%81?"\n------+-------+------\n":"\n\n"));}return z;}
+1 -1
View File
@@ -3,7 +3,7 @@
use warnings;
use IPC::Open2;
my $sf_exe = "./sudoku-sf"; # location of sudoku-sf executable
my $sf_exe = "./aidan"; # location of sudoku-sf executable
my $vflg=0; my $gcmd=$sf_exe; my $scmd=$sf_exe;
my $gcnt=400; my $soff=2; my $fbad=1; my $ffile=1;