Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.c > #400519 > unrolled thread

Tic Tac Toe Quest

Back to article view | Back to comp.lang.c

Contents

  Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-29 14:10 +0200
    Re: Tic Tac Toe Quest Chris Ahlstrom <OFeem1987@teleworm.us> - 2026-07-29 08:14 -0400
      Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-29 14:28 +0200
        Re: Tic Tac Toe Quest Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-29 20:30 +0800
          Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-29 14:38 +0200
            Turbo Vision (was: Re: Tic Tac Toe Quest) Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-29 20:46 +0800
              Re: Turbo Vision Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-29 14:57 +0200
                Re: Turbo Vision Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-29 21:14 +0800
                Re: Turbo Vision ... MS-DOS 5 Shell? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:42 +0800
                  Re: Turbo Vision ... MS-DOS 5 Shell? Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-08-05 04:13 +0800
                    Re: Turbo Vision ... MS-DOS 5 Shell? usenet@dolik.dev (Andriy D) - 2026-08-05 11:38 +0000
                    Re: Turbo Vision ... MS-DOS 5 Shell? JJ <jj4public@gmail.com> - 2026-08-05 20:46 +0700
        Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-07-31 06:19 +0000
          Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-31 14:20 +0200
            Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-07-31 22:05 +0000
              Re: Tic Tac Toe Quest steve g <Sgonedes1977@gmail.com> - 2026-08-08 01:35 -0400
                Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-08-08 07:32 +0000
                  Re: Tic Tac Toe Quest steve g <Sgonedes1977@gmail.com> - 2026-08-09 19:18 -0400
          Re: Tic Tac Toe Quest James Kuyper <jameskuyper@alumni.caltech.edu> - 2026-07-31 11:22 -0400
            Re: Tic Tac Toe Quest "Chris M. Thomasson" <chris.m.thomasson.1@gmail.com> - 2026-07-31 20:00 -0700
            Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-08-02 01:17 +0000
              Re: Tic Tac Toe Quest Mike Terry <news.dead.person.stones@darjeeling.plus.com> - 2026-08-02 03:41 +0100
                Re: Tic Tac Toe Quest Mike Terry <news.dead.person.stones@darjeeling.plus.com> - 2026-08-02 04:19 +0100
                Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-08-02 21:09 +0000
                  Re: Tic Tac Toe Quest Mike Terry <news.dead.person.stones@darjeeling.plus.com> - 2026-08-03 01:54 +0100
                  Re: Tic Tac Toe Quest James Kuyper <jameskuyper@alumni.caltech.edu> - 2026-08-03 17:25 -0400
                    Re: Tic Tac Toe Quest R Kym Horsell <kym@sdf.org> - 2026-08-03 22:00 +0000
                      Re: Tic Tac Toe Quest bart <bc@freeuk.com> - 2026-08-04 01:37 +0100
                        Re: Tic Tac Toe Quest bart <bc@freeuk.com> - 2026-08-04 01:58 +0100
                          Re: Tic Tac Toe Quest Mike Terry <news.dead.person.stones@darjeeling.plus.com> - 2026-08-04 03:16 +0100
                            Re: Tic Tac Toe Quest bart <bc@freeuk.com> - 2026-08-04 11:51 +0100
                        Re: Tic Tac Toe Quest Ike Naar <ike@sdf.org> - 2026-08-04 06:50 +0000
                          Re: Tic Tac Toe Quest antispam@fricas.org (Waldek Hebisch) - 2026-08-04 11:05 +0000
                      Re: Tic Tac Toe Quest James Kuyper <jameskuyper@alumni.caltech.edu> - 2026-08-04 01:05 -0400
                        Re: Tic Tac Toe Quest ... End game? TikTok? :) "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-04 13:54 +0800
                        Re: Tic Tac Toe Quest "Chris M. Thomasson" <chris.m.thomasson.1@gmail.com> - 2026-08-04 11:50 -0700
              Re: Tic Tac Toe Quest James Kuyper <jameskuyper@alumni.caltech.edu> - 2026-08-02 12:30 -0400
            Re: Tic Tac Toe Quest bart <bc@freeuk.com> - 2026-08-02 11:25 +0100
        Re: Tic Tac Toe Quest Chris Ahlstrom <OFeem1987@teleworm.us> - 2026-08-01 07:40 -0400
    Re: Tic Tac Toe Quest DFS <nospam@dfs.com> - 2026-07-29 15:04 -0400
      Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-29 21:28 +0200
        Re: Tic Tac Toe Quest DFS <nospam@dfs.com> - 2026-07-29 16:25 -0400
    Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-30 17:09 +0200
      Re: Tic Tac Toe Quest Janis Papanagnou <janis_papanagnou+ng@hotmail.com> - 2026-07-30 17:53 +0200
        Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-30 21:59 +0200
          Re: Tic Tac Toe Quest Janis Papanagnou <janis_papanagnou+ng@hotmail.com> - 2026-07-30 23:00 +0200
            Re: Tic Tac Toe Quest Paul <nospam@needed.invalid> - 2026-07-30 18:56 -0400
              Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-31 20:33 +0200
                Re: Tic Tac Toe Quest "Chris M. Thomasson" <chris.m.thomasson.1@gmail.com> - 2026-07-31 19:53 -0700
            Re: Tic Tac Toe Quest Michael S <already5chosen@yahoo.com> - 2026-07-31 17:53 +0300
              Re: Tic Tac Toe Quest Janis Papanagnou <janis_papanagnou+ng@hotmail.com> - 2026-07-31 18:17 +0200
                Re: Tic Tac Toe Quest Michael S <already5chosen@yahoo.com> - 2026-08-01 21:44 +0300
                  Re: Tic Tac Toe Quest Janis Papanagnou <janis_papanagnou+ng@hotmail.com> - 2026-08-01 21:43 +0200
    Re: Tic Tac Toe Quest "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 00:45 +0800
      Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-30 22:00 +0200
        Re: Tic Tac Toe Quest "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 13:29 +0800
          Re: Tic Tac Toe Quest Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 14:54 +0800
            Re: Tic Tac Toe Quest Keith Thompson <Keith.S.Thompson+u@gmail.com> - 2026-07-31 03:00 -0700
              Re: Tic Tac Toe Quest Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 20:57 +0800
              Re: Tic Tac Toe Quest gazelle@shell.xmission.com (Kenny McCormack) - 2026-07-31 14:08 +0000
        Re: Tic Tac Toe Quest ... Discrete mathematics? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 13:30 +0800
        Re: Tic Tac Toe Quest Lawrence D’Oliveiro <ldo@nz.invalid> - 2026-07-31 07:31 +0000
          Re: Tic Tac Toe Quest Bonita Montero <Bonita.Montero@gmail.com> - 2026-07-31 14:21 +0200
            Re: Tic Tac Toe Quest Lawrence D’Oliveiro <ldo@nz.invalid> - 2026-08-02 03:57 +0000
          Re: Tic Tac Toe Quest ... WarGames (1983) Movie CLIP - Tic Tac Toe With Joshua "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:24 +0800
        Re: Tic Tac Toe Quest "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:18 +0800
      Re: Tic Tac Toe Quest Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 04:17 +0800
        Re: Tic Tac Toe Quest ... game programming in C? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 13:27 +0800
          Re: Tic Tac Toe Quest ... game programming in C? Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 14:56 +0800
            Re: Tic Tac Toe Quest ... game programming in C? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 19:43 +0800
              VAXen (was: Re: Tic Tac Toe Quest ... game programming in C?) Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 20:56 +0800
                Re: VAXen The Natural Philosopher <tnp@invalid.invalid> - 2026-07-31 14:32 +0100
                  I Bought a $200K VAX on eBay & – Now It Runs My Smart Lights! - YouTube "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:20 +0800
                    Re: I Bought a $200K VAX on eBay & – Now It Runs My Smart Lights! - YouTube Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-07-31 22:53 +0800
                      Re: I Bought a $200K VAX on eBay & – Now It Runs My Smart Lights! - YouTube The Natural Philosopher <tnp@invalid.invalid> - 2026-07-31 16:00 +0100
                Re: Tic Tac Toe Quest ... VAXen? VMS? Pascal? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:14 +0800
                  Re: Tic Tac Toe Quest ... VAXen? VMS? Pascal? Spreadsheets! Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-08-05 04:17 +0800
                    Re: Tic Tac Toe Quest ... VAXen? VMS? Pascal? Spreadsheets! "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-05 07:43 -0700
    Re: Tic Tac Toe Quest... vibe-coding? Wargames (1983) the movie? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-07-31 22:43 +0800
    Tic-tac-toe (過三關? 井字棋?) - Wikipedia "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-02 17:19 +0800
      Re: Tic-tac-toe (???? ????) - Wikipedia Your Name <YourName@YourISP.com> - 2026-08-03 10:01 +1200
        Wing Commander III: Heart of the Tiger (was: Re: Tic-tac-toe (???? ????) - Wikipedia) Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> - 2026-08-03 17:15 +0800
          Re: Wing Commander III ... and Mark Hamill? Star Wars? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-04 13:09 +0800
        Re: Tic-tac-toe ... balance to the Force? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-04 13:06 +0800
        Death Star bombing run mechanical toy? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-04 13:14 +0800
          Re: Death Star bombing run mechanical toy? "Mr. Man-wai Chang" <toylet.toylet@gmail.com> - 2026-08-04 13:49 +0800

Page 1 of 5  [1] 2 3 4 5  Next page →

#400519 — Tic Tac Toe Quest

Write a program that calculates the number of possible ways to
win a Tic Tac Toe round and the number of possible undecided
rounds. Don't show the code here immediately but after some
days. Just show the results.
C and C++ are allowed since the solution will be very similar.

[toc] | [next] | [standalone]

#400520

Bonita Montero wrote this screed in ALL-CAPS (fixed):

> Write a program that calculates the number of possible ways to
> win a Tic Tac Toe round and the number of possible undecided
> rounds. Don't show the code here immediately but after some
> days. Just show the results.
> C and C++ are allowed since the solution will be very similar.

    "Yes, tic-tac-toe is a strongly solved game that always ends
    in a forced draw when both players use optimal strategy."

I.e. You're beating a dead horse.

-- 
Second Law of Final Exams:
	In your toughest final -- for the first time all year -- the most
	distractingly attractive student in the class will sit next to you.

[toc] | [prev] | [next] | [standalone]

#400521

Am 29.07.2026 um 14:14 schrieb Chris Ahlstrom:

> "Yes, tic-tac-toe is a strongly solved game that always ends
> in a forced draw when both players use optimal strategy."

> I.e. You're beating a dead horse.

Then show me the results, i.e. the number of possible
wins and the number of possible undecided games.

[toc] | [prev] | [next] | [standalone]

#400522

On 29/07/2026 8:28 PM, Bonita Montero wrote:
> Am 29.07.2026 um 14:14 schrieb Chris Ahlstrom:
> 
>> "Yes, tic-tac-toe is a strongly solved game that always ends
>> in a forced draw when both players use optimal strategy."
> 
>> I.e. You're beating a dead horse.
> 
> Then show me the results, i.e. the number of possible
> wins and the number of possible undecided games.

Are you asking us to do your homework for you?  Why can't you do
your own homework?
-- 
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com

[toc] | [prev] | [next] | [standalone]

#400523

Am 29.07.2026 um 14:30 schrieb Johann 'Myrkraverk' Oskarsson:

> Are you asking us to do your homework for you?  Why can't you do
> your own homework?

It's not my homework. I had this idea tomorrow and I solved it.
And you're frustrated.

[toc] | [prev] | [next] | [standalone]

#400525 — Turbo Vision (was: Re: Tic Tac Toe Quest)

On 29/07/2026 8:38 PM, Bonita Montero wrote:
> Am 29.07.2026 um 14:30 schrieb Johann 'Myrkraverk' Oskarsson:
> 
>> Are you asking us to do your homework for you?  Why can't you do
>> your own homework?
> 
> It's not my homework. I had this idea tomorrow and I solved it.
> And you're frustrated.
> 

Yes, I'm frustrated.  Thank you for caring.  I'm frustrated because
I don't know how to update Visual Studio 2022 from the command line,
and will have to start the GUI to get rid of some build error.

In other news, I'm using Turbo Vision in that project.  I really like
that GUI.  What GUI toolkits do you use, and why is Turbo Vision the
best of them?

-- 
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com

[toc] | [prev] | [next] | [standalone]

#400527 — Re: Turbo Vision

Am 29.07.2026 um 14:46 schrieb Johann 'Myrkraverk' Oskarsson:

> In other news, I'm using Turbo Vision in that project.  I really like
> that GUI.  What GUI toolkits do you use, and why is Turbo Vision the
> best of them?

I used TV in the 90s for a machine control app under DOS. I liked
it also that days but from a today's view it's not good OOP, just
as Microsoft Foundation Classes.

[toc] | [prev] | [next] | [standalone]

#400528 — Re: Turbo Vision

On 29/07/2026 8:57 PM, Bonita Montero wrote:
> Am 29.07.2026 um 14:46 schrieb Johann 'Myrkraverk' Oskarsson:
> 
>> In other news, I'm using Turbo Vision in that project.  I really like
>> that GUI.  What GUI toolkits do you use, and why is Turbo Vision the
>> best of them?
> 
> I used TV in the 90s for a machine control app under DOS. I liked
> it also that days but from a today's view it's not good OOP, just
> as Microsoft Foundation Classes.

These days, I use Magiblot's Turbo Vision.

   https://github.com/magiblot/tvision

 > A modern port of Turbo Vision 2.0, the classical framework for text-
 > based user interfaces. Now cross-platform and with Unicode support.

It should work on Linux, Mac OS, OS X, FreeBSD, and Illumos; not to
mention Windows 10 where I use it.  I'll show screenshots.  They'll
be posted on Dropbox, so Dan Cross will not look at them.  I hope
you will.  You'll just have to wait for something a little bit more
substantial than the single empty window I have now.

-- 
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com

[toc] | [prev] | [next] | [standalone]

#400649 — Re: Turbo Vision ... MS-DOS 5 Shell?

On 7/29/2026 8:57 PM, Bonita Montero wrote:
> 
> I used TV in the 90s for a machine control app under DOS. I liked
> it also that days but from a today's view it's not good OOP, just
> as Microsoft Foundation Classes.


I remember it. But it never took off, right?
You have to mention DOS 5's shell as well,
and maybe Norton Commander?

The same went to Turbo C++ and then Borland
C++.

MS-DOS Shell - BetaWiki
<https://betawiki.net/wiki/MS-DOS_Shell>

Norton Commander - Wikipedia
<https://en.wikipedia.org/wiki/Norton_Commander>

-- 

    @~@   Simplicity is Beauty! Remain silent! Drink, Blink, Stretch!
   / v \  May the Force and farces be with you! Live long and prosper!!
  /( _ )\ https://sites.google.com/site/changmw/
    ^ ^   https://github.com/changmw/changmw
          The game is afoot... Meow...

[toc] | [prev] | [next] | [standalone]

#400829 — Re: Turbo Vision ... MS-DOS 5 Shell?

On 31/07/2026 10:42 PM, Mr. Man-wai Chang wrote:
> On 7/29/2026 8:57 PM, Bonita Montero wrote:
>>
>> I used TV in the 90s for a machine control app under DOS. I liked
>> it also that days but from a today's view it's not good OOP, just
>> as Microsoft Foundation Classes.
> 
> 
> I remember it. But it never took off, right?
> You have to mention DOS 5's shell as well,
> and maybe Norton Commander?
> 
> The same went to Turbo C++ and then Borland
> C++.
> 
> MS-DOS Shell - BetaWiki
> <https://betawiki.net/wiki/MS-DOS_Shell>
> 
> Norton Commander - Wikipedia
> <https://en.wikipedia.org/wiki/Norton_Commander>
> 

I remember DOS 5's shell.  I didn't use it much,
nor Norton Commander.  On the other tentacle, I
sometimes use Far Manager in modern Windows.  It's
nice enough, but I've not gotten used to it yet.

Can you recommend a better Norton Commander clone?
-- 
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com
https://bsky.app/profile/myrkraverk.bsky.social

[toc] | [prev] | [next] | [standalone]

#400859 — Re: Turbo Vision ... MS-DOS 5 Shell?

In comp.os.msdos.programmer Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> wrote:

> I remember DOS 5's shell.  I didn't use it much,
> nor Norton Commander.  On the other tentacle, I
> sometimes use Far Manager in modern Windows.  It's
> nice enough, but I've not gotten used to it yet.
> 
> Can you recommend a better Norton Commander clone?

You can try Total Commander for more 'windows' look & feel. Midnight Commander is an OSS NC clone close to the original NC worth looking at too, as it works on Linux and UNIX in general.

TTY,
\aID 

[toc] | [prev] | [next] | [standalone]

#400861 — Re: Turbo Vision ... MS-DOS 5 Shell?

On Wed, 5 Aug 2026 04:13:14 +0800, Johann 'Myrkraverk' Oskarsson wrote:
> 
> I remember DOS 5's shell.  I didn't use it much,
> nor Norton Commander.  On the other tentacle, I
> sometimes use Far Manager in modern Windows.  It's
> nice enough, but I've not gotten used to it yet.
> 
> Can you recommend a better Norton Commander clone?

Volkov Commander shareware (but includes source code in their site).
Probably the best one, assuming that, free and non-free is not an issue.

https://en.wikipedia.org/wiki/Volkov_Commander?useskin=vector

Dos Navigator open source freeware. The only alternative to NC which is
free. But it uses Turbo Vision, so it's not memory efficient.

https://en.wikipedia.org/wiki/DOS_Navigator?useskin=vector

Other NC alternatives are not included, since they're either not true NC
alternative (e.g. DOS Shell), or not a proper _DOS_ file manager (e.g.
Midnight Commander, including all cross-platform ones).

[toc] | [prev] | [next] | [standalone]

#400632

In comp.lang.c Bonita Montero <Bonita.Montero@gmail.com> wrote:
> Am 29.07.2026 um 14:14 schrieb Chris Ahlstrom:
> 
>> "Yes, tic-tac-toe is a strongly solved game that always ends
>> in a forced draw when both players use optimal strategy."
> 
>> I.e. You're beating a dead horse.
> 
> Then show me the results, i.e. the number of possible
> wins and the number of possible undecided games.

The problem seems to be under-specified.
Does who plays first make a "different game".
In some ways of looking at it only the final positions determine "the game"
and if you want to solve it in your head you can rotate and flip
all possible end positions down to a relatively small number.

With no summetries and counting who start, the order of the squares
marked, and the final position as all befining "the game"
then there are a couple million possibilities.

[toc] | [prev] | [next] | [standalone]

#400638

Am 31.07.2026 um 08:19 schrieb R Kym Horsell:

> Does who plays first make a "different game".

I count boards with the first player starting first and
the second player doing the same by taking two times the
outcome; that's the same as if you inverted the board.

> In some ways of looking at it only the final positions determine "the game"
> and if you want to solve it in your head you can rotate and flip
> all possible end positions down to a relatively small number.

Show me the code. ;-)

> With no summetries and counting who start, the order of the squares
> marked, and the final position as all befining "the game"
> then there are a couple million possibilities.

Absolutely not. There was the same discussion on Quora and
the results shown are exactly the half of mine, because I
take both players starting first.

[toc] | [prev] | [next] | [standalone]

#400675

In comp.lang.c Bonita Montero <Bonita.Montero@gmail.com> wrote:
> Am 31.07.2026 um 08:19 schrieb R Kym Horsell:
> 
>> Does who plays first make a "different game".
> 
> I count boards with the first player starting first and
> the second player doing the same by taking two times the
> outcome; that's the same as if you inverted the board.
> 
>> In some ways of looking at it only the final positions determine "the game"
>> and if you want to solve it in your head you can rotate and flip
>> all possible end positions down to a relatively small number.
> 
> Show me the code. ;-)
...

OK. It took a while to get an 8" floppy drive working to find
the code but this is the way we did it in 1979:

Reading it again it's very much in the line of what the kids these
days call a "prompt".

main :- assert(games(0)), assert(draws(0)),
	play(Winner,Moves,FinalBoard),
	inc_games,
	(Winner=draw -> inc_draws),
	fail	%%% force it to try all possibilities (above) trying to succeed

;	games(Games),writeln(Games),
	draws(Draws),writeln(Draws)
.

%% x goes first
%% 1222560
%% 362880

play(Winner,G,B) :-
	empboard(B), InitEmp=[1,2,3,4,5,6,7,8,9],
	%% player(First),
	First=x,
	game(First,B,G,InitEmp,FinalEmp),
	(	player(Winner),won(Winner,B)
	;	Winner=draw, FinalEmp=[]
	)
.

game(_,_,[]) --> [].	%% return short solutions first
game(Me,B,[M|Ms]) --> select(M),
			{ updboard(Me,B,M), opponent(Me,You) },
			game(You,B,Ms).

updboard(Who,B,M) :- arg(M,B,Sq), empty(Sq), Sq=Who.

won(Who,B) :- hasrow(Who,B)
;		hascol(Who,B)
;		hasdiag(Who,B)
.

%% 1 2 3
%% 4 5 6
%% 7 8 9

hasrow(Who,B) :- checksqs([1,2,3],Who,B)
;		checksqs([4,5,6],Who,B)
;		checksqs([7,8,9],Who,B)
.

hascol(Who,B) :- checksqs([1,4,7],Who,B)
;		checksqs([2,5,8],Who,B)
;		checksqs([3,6,9],Who,B)
.

hasdiag(Who,B) :- checksqs([1,5,9],Who,B)
;		checksqs([3,5,7],Who,B)
.

checksqs([],_,_).
checksqs([I|Is],Who,B) :- arg(I,B,Sq), Sq == Who, checksqs(Is,Who,B).

empboard(B) :- functor(B,board,9).

empty(Sq) :- var(Sq).

player(Who) :- opponent(Who,_).

opponent(x,0).
opponent(0,x).

inc_games :- retract(games(X)),X1 is X+1,assert(games(X1)).

inc_draws :- retract(draws(X)),X1 is X+1,assert(draws(X1)).

[toc] | [prev] | [next] | [standalone]

#400927

R Kym Horsell <kym@sdf.org> writes:

> OK. It took a while to get an 8" floppy drive working to find
> the code but this is the way we did it in 1979:
>
> Reading it again it's very much in the line of what the kids these
> days call a "prompt".
>
> main :- assert(games(0)), assert(draws(0)),
> 	play(Winner,Moves,FinalBoard),
> 	inc_games,
> 	(Winner=draw -> inc_draws),
> 	fail	%%% force it to try all possibilities (above) trying to succeed
>
> ;	games(Games),writeln(Games),
> 	draws(Draws),writeln(Draws)
> .
>
> %% x goes first
> %% 1222560
> %% 362880
>
> play(Winner,G,B) :-
> 	empboard(B), InitEmp=[1,2,3,4,5,6,7,8,9],
> 	%% player(First),
> 	First=x,
> 	game(First,B,G,InitEmp,FinalEmp),
> 	(	player(Winner),won(Winner,B)
> 	;	Winner=draw, FinalEmp=[]
> 	)
> .
>
> game(_,_,[]) --> [].	%% return short solutions first
> game(Me,B,[M|Ms]) --> select(M),
> 			{ updboard(Me,B,M), opponent(Me,You) },
> 			game(You,B,Ms).
>
> updboard(Who,B,M) :- arg(M,B,Sq), empty(Sq), Sq=Who.
>
> won(Who,B) :- hasrow(Who,B)
> ;		hascol(Who,B)
> ;		hasdiag(Who,B)
> .
>
> %% 1 2 3
> %% 4 5 6
> %% 7 8 9
>
> hasrow(Who,B) :- checksqs([1,2,3],Who,B)
> ;		checksqs([4,5,6],Who,B)
> ;		checksqs([7,8,9],Who,B)
> .
>
> hascol(Who,B) :- checksqs([1,4,7],Who,B)
> ;		checksqs([2,5,8],Who,B)
> ;		checksqs([3,6,9],Who,B)
> .
>
> hasdiag(Who,B) :- checksqs([1,5,9],Who,B)
> ;		checksqs([3,5,7],Who,B)
> .
>
> checksqs([],_,_).
> checksqs([I|Is],Who,B) :- arg(I,B,Sq), Sq == Who, checksqs(Is,Who,B).
>
> empboard(B) :- functor(B,board,9).
>
> empty(Sq) :- var(Sq).
>
> player(Who) :- opponent(Who,_).
>
> opponent(x,0).
> opponent(0,x).
>
> inc_games :- retract(games(X)),X1 is X+1,assert(games(X1)).
>
> inc_draws :- retract(draws(X)),X1 is X+1,assert(draws(X1)).


some beautiful code. I wish I still had my cassette tapes..

[toc] | [prev] | [next] | [standalone]

#400929

In comp.lang.c steve g <Sgonedes1977@gmail.com> wrote:
...
> some beautiful code. I wish I still had my cassette tapes..

I know how that is. Sitting next to me is a 30 yo hifi with double cas.
Got a tape jammed in one side some time back. Getting it out
stopped it playing altogether. But that's why put in 2. :)
Then the other side jammed up and the same biz happened.
No play == throw out all the casettes the next time you move.
There were quite a few of them incl a few boxes of never-used 
long-play TSK SAs.

-- 
Grindr CEO says AI is doing work that would have required hiring 200
additional engineers
Yahoo Finance, 8 Aug 2026 02:11
Grindr CEO George Arison said that AI had increased its engineering output
2.5-fold.

[toc] | [prev] | [next] | [standalone]

#400940

R Kym Horsell <kym@sdf.org> writes:

> In comp.lang.c steve g <Sgonedes1977@gmail.com> wrote:
> ...
>> some beautiful code. I wish I still had my cassette tapes..
>
> I know how that is.

Ha! But do you retention your cassettes? I tell you I did not :)

[toc] | [prev] | [next] | [standalone]

#400657

On 2026-07-31 02:19, R Kym Horsell wrote:
...> With no summetries and counting who start, the order of the squares
> marked, and the final position as all befining "the game"
> then there are a couple million possibilities.

There's only 9 different choices for the first mark, 8 for the second,
etc. Ignoring the victory conditions, that means at most 9! = 362,880
games, no matter how you distinguish them. If you stop a game as soon as
one side wins, it's much smaller, I won't bother figuring out how many.

[toc] | [prev] | [next] | [standalone]

#400682

On 7/31/2026 8:22 AM, James Kuyper wrote:
> On 2026-07-31 02:19, R Kym Horsell wrote:
> ...> With no summetries and counting who start, the order of the squares
>> marked, and the final position as all befining "the game"
>> then there are a couple million possibilities.
> 
> There's only 9 different choices for the first mark, 8 for the second,
> etc. Ignoring the victory conditions, that means at most 9! = 362,880
> games, no matter how you distinguish them. If you stop a game as soon as
> one side wins, it's much smaller, I won't bother figuring out how many.

8 winning positions afaict. For all of the losing positions, not sure. 
Working on other things right now.

[toc] | [prev] | [next] | [standalone]

Page 1 of 5  [1] 2 3 4 5  Next page →

Back to top | Article view | comp.lang.c

csiph-web