TweetFollow Us on Twitter

Tic-Tac-Toe
Volume Number:1
Issue Number:12
Column Tag:Lisp Listener

Windows and Tic-Tac-Toe!

By Andy Cohen, Human Factors Engineer, MacTutor Contributing Editor

This month the Lisp Listener will feature a program written by Dean Ritz of ExperTelligence. The program is a Tic-Tac-Toe game which uses all of the functions described in previous issues. However, before discussing the game I'd like to present a subject long overdue.

Menus In ExperLisp

Creating a menu on the menu bar is actually a pretty straight forward, though nonintuitve, operation. In creating a menu one must use one of the special "hooks" in ExperLisp. There are also hooks for printing. Those will eventually be covered in future installments. The first step in creating a menu must be the identification of what the menu items will do. Menu items can call functions or perform assignment. If the items call defined functions, these functions should already be defined and the function names known. One then defines a function which returns a menu and a menu item on the condition that a certain menu and item position is selected. One easy way to do this uses a conditional which has not yet been discussed.

SELECTQ acts like COND since it has a clause and returns something based on the value of the clause. The first item following the term SELECTQ is the key-form . Each of the test items which follow are evaluated and the one which is the equivalent of the key-form causes the return of it's corresponding value or list. For example;

(defun what (x)
  (selectq x
           (1 'one)
           (2 'two)
           (t 'all)))

(what 1)
one
(what 3)
all

In the above, the selectq evaluates the passed value (x) for equality with the first atoms of each of the three following lists. If the atom is equal to the passed value, the atom following the first is returned. As in COND the "t" forces the return of the atom "all". In assigning menu item positions one may have a SELECTQ within a SELECTQ. The first level SELECTQ finds the menu, the second finds the menu item. For example:

(defun menuselect (themenu theitem)
  (selectq themenu
     (10 (selectq theitem
           (1 (function1B))
           (2 (function2B))
           (3 (function3B))))
     (11 (selectq theitem 
           (1 (function1A))
           (2 (function2A))
           (3 (function3A))))))

The first SELECTQ locates which group of items belong to the menu number assigned to "themenu". The second SELECTQ locates the item belonging to the item number assigned to "theitem". After one generates the above defined function one must assign the values returned by the function to the special menu-hook;

(setq ªmenuhook menusel)

One then assigns a label to the "NEWMENU" function (It is a built in function) and it's elements. This must be done with the ID number that one wants to assign to the menu as well as the menu title. For example:

(setq mymenu (newmenu 10 "menu B"))

Using this label one then assigns the item labels to the menu as follows:

(appendmenu mymenu "function1B")
(appendmenu mymenu "function2B")
(appendmenu mymenu "function3B")

or one may do it all in one list as follows:

(appendmenu mymenu " function1B; function2B;
function3B")

One then inserts the menu with:

(insertmenu mymenu 0)

Then draws it with:

(drawmenubar)

The entire sample with dummy functions follows:

(defun function1A ()
  (print "function 1A"))

(defun function2A ()
  (print "function 2A"))

(defun function3A ()
  (print "function 3A"))

(defun function1B ()
  (print "function 1B"))

(defun function2B ()
  (print "function 2B"))

(defun function3B ()
  (print "function 3B"))




(defun menuselect (themenu theitem)
  (selectq themenu
     (10 (selectq theitem
           (1 (function1B))
           (2 (function2B))
           (3 (function3B))))
     (11 (selectq theitem 
           (1 (function1A))
           (2 (function2A))
           (3 (function3A))))))

(setq ªmenuhook menuselect)

(setq mymenu (newmenu 10 "menu B")
      grmenu (newmenu 11 "menu A"))

(appendmenu grmenu 
«function1A;function2A;function3A»)
(appendmenu mymenu
 "function1B;function2B;function3B")


(insertmenu grmenu 0)       ;0=the beforeID #
(insertmenu mymenu 0)

(drawmenubar)

Note that in the INSERTMENU lists I used "0" as the before ID number. The number zero indicates that I want to place the menu to the right of any already existing menus.

One may call any of the six defined functions by selecting a menu item rather then by typing the function name into the Listener Window. We can see now that an application in ExperLisp can consist of a large number of functions which do not necessarily call each other. A function, when called, can provide some service on data or graphics as a stand alone utility. The operator can then change the data or graphics by calling up another function from the menu.

Another menu example follows:

(Defun number (x)
   (cond ((= 1 x) '(the number is one))
          ((= 2 x) '(the number is two))
          ((= 3 x) '(the number is three))
          ((= 4 x) '(the number is four))
          ((= 5 x) '(the number is five))
          ((= 6 x) '(the number is six))
          ((= 7 x) '(the number is seven))
          ((= 8 x) '(the number is eight))
          ((= 9 x) '(the number is nine))
          ((= 10 x) '(the number is ten))))
          
(defun order (themenu theitem)
  (if (not (eq nil std_graf)) (std_graf 'selectwindow))
  (selectq themenu
     (10 (selectq theitem 
           (1 (number 1))
           (2 (number 2))
           (3 (number 3))
           (4 (number 4))
           (5 (number 5))
           (6 (number 6))
           (7 (number 7))
           (8 (number 8))
           (9 (number 9))
           (10 (number 10))))))
     
(setq ªmenuhook order)

(setq mymenu (newmenu 10 "numbers"))

(appendmenu mymenu «one; two; three; four;
              four; five; six; seven; eight; nine; ten»)

(insertmenu mymenu 0)

(drawmenubar)

Deleting A Menu

Deleting a menu is easily accomplished by using the built in DELETEMENU and DISPOSEMENU functions. DELETEMENU actually deletes the menu from the menu bar. DISPOSEMENU releases the memory used by the just deleted menu. One should then redraw the menu bar with DRAWMENUBAR.

(deletemenu 10)
(disposemenu mymenu)
(drawmenubar)

Tic-Tac-Toe

While the following has very little that has not been discussed in previous Lisp Listener installments, there is a lot which is in different form. For example the use of SETQ for multiple assignment. ExperLisp accepts the spaces between the symbols and the stuff assigned to them as dividers. However, these spaces are ignored by ExperLisp whether they consist of one space, mutiple spaces or one line. Therefore, one may make multiple assignment in a formatted manner for easier reading. See PLACES below.

In the function named "random.choice" MEMQ is used. MEMQ is similar to MEMBER. Where member tests to see if the given atom is a member of a list using EQUAL, MEMQ uses EQ. EQUAL test equality of characters regardless of whether they are upper case or lower case. EQ returns "t" only if the two items are virtually identical. MEMQ returns the same as MEMBER (that is, when the tested atom is contained in the tested list it is returned along with all the atoms which followed it in the list tested for the membership).

PUSH (used in defined function "Player2") is similar to APPEND. It does a CONS of the item following into a list.

Figure 1 is the functional breakdown of the Tic-Tac-Toe game. TOE calls WINNER? and PLAYERS which return values. TOE also calls DRAWBOARD which does what it's title suggests. Both WINNER? and PLAYERS refer to subfunctions which use subsubfunctions. WINNER? calculates whether or not the game was either won or was a draw by looking at the number of moves made. If WINNER? returns nil then there is no winner yet and PLAYERS is called. PLAYERS checks to the current player's turn and calls either PLAYER1 or PLAYER2 based on which turn it is. PLAYER1 is the computer's moves. It uses NEXT.MOVE, WINNIN.MOVE and RANDOM.CHOICE to generate the move. Player2 uses POSITION and PT.IN.RECT to allow the human player to enter a move using the mouse. To start the game enter "(TOE)" into the Listener Window.

;**************************
;Tic-Tac-Toe wrtten by Dean Ritz
;PLACES is a list of pairs.  The first element of each  
;list of pairs represents the position (1-9).  The last 
;second element in each list of pairs is a boundary
;list for the piece which fits into that position.
;TURN remembers whose turn it is (player 1 or 2).
;WINS is a list of the 8 possible winning sets.  The
;program checks possible moves against this list.
;*********************************
(defun toe ()
  (setq 
    p1 nil 
    p2 nil ;Set the chosen positions to empty lists.
    places '((1 (-85 -85 -35 -35)) (2 (-85 -25 -35 25)) 
             (3 (-85 35 -35 85)) (4 (-25 -85 25 -35 )) 
             (5 (-25 -25 25 25)) (6 (-25 35 25 85)) 
             (7 (35 -85 85 -35)) (8 (35 -25 85 25)) 
             (9 (35 35 85 85)))
    wins '((1 2 3) (4 5 6) (7 8 9) (1 4 7) (2 5 8) 
           (3 6 9) (1 5 9) (3 5 7))
    turn 1
    std_graf (newgrafwindow '(45 5 320 500)))
  (send std_graf 'setwtitle "Tic Tac Toe")
  (send std_graf 'showwindow)
  (send std_graf 'selectwindow)
  (textface 0)
  (drawboard)
  (while (not (winner?)) (players))
  (cond ((check wins p2)
         (fillrect '(-110 -201 10 -100) white)
         (moveto -200 0)
         (drawstring "You win!!"))
        ((check wins p1)
         (fillrect '(-110 -201 10 -100) white)
         (moveto -200 0) 
         (drawstring "The Macintosh wins!!"))
        (t
          (fillrect '(-110 -201 10 -100) white)
          (moveto -200 0) 
          (drawstring "Cat's game.")))
  (dotimes (i 1800) (add1 3))
  (std_graf 'closewindow)
  (setq std_graf nil))

;**************************************
(defun drawboard ()
 (pendown)
 (penpat gray)
 (framerect '(-90 -90 90 90))
 (framerect '(-90 -32 90 32))
 (framerect '(-32 -90 32 90))
 (penpat black))

;**************************************
;WINNER? uses brute force to see if their is a
; winner.  If turn is 1, then it checks
; to see if player 2 won the game
; with the last move.



(defun winner? ()
  (cond ((< 8 (+ (length p1) (length p2))) t)
        ((and (= turn 1)
              (check wins p2)) 2)
        (t 
          (and (check wins p1) 1))))

;**************************************
(defun check (for against)
  (cond ((null for) nil)
        ((members (car for) against) t)
        (t (check (cdr for) against))))

;**************************************
;MEMBERS works recursively to see if all of the
;elements of the list :L1
;are members of the list :L2.

(defun members (l1 l2)
  (cond ((null l1) t)
        ((memq (car l1) l2)
         (members (cdr l1) l2))))

;**************************************
;This toggles the variables which determines whose
; turn it is.

(defun players ()
  (cond ((= turn 1)
         (player1) 
         (setq turn 2))
        (t 
          (player2) 
          (setq turn 1))))

;**************************************
;This runs the computer player's move.

(defun player1 (&aux choice)
  (fillrect '(-110 -201 10 -100) white)
  (moveto -200 0) (drawstring "Macintosh")
  (setq choice (next.move)
        p1 (cons choice p1))
  (filloval (car (last (assq choice places))) ltgray))

;**************************************
;this is the psuedo brains of the whole thing.  The
; goal is first to select a move that wins, then
; select a move that blocks,
;otherwise just select any untaken shot.

(defun next.move ()
  (prog (tempo)
        (setq tempo (winning.move 1 p1))
        (if tempo (return tempo))
        (setq tempo (winning.move 1 p2))
        (if tempo (return tempo))
        (random.choice)))

;**************************************
(defun winning.move (count p)
  (prog ()
        begin
        (cond ((or (memq count p1) (memq count p2))
               (setq count (iadd count 1)) 
               (go begin))
              ((> count 9) (return nil))
              ((check wins (cons count p)) (return count))
              (t (winning.move (iadd 1 count) p)))))

;**************************************
;This returns a randomly chosen position that has not
;already been chosen.

(defun random.choice ()
  (prog (temp)
        loop
        (setq temp (iadd 1 (random 9)))
        (if (or (memq temp p1) (memq temp p2))
            (go loop)  ;If that position is chosen, get another.
            temp)))  ;Otherwise output the position.

;**************************************
;This manages the human player's move.

(defun player2 ()
  (prog (choice)
        (fillrect '(-110 -201 10 -100) white)
        (moveto -200 0) 
        (drawstring "You")
        loop
        (setq choice (position))
        (if (or (memq choice p1) (memq choice p2))
            (go loop))
        (push choice p2)
        (filloval (car (last (assq choice places))) gray)))

;**************************************
;This gets a position from the mouse.

(defun position ()
  (prog (pt count)
        begin
        (if (not (button)) (go begin))
        (setq pt (getmouse))
        (if (not (pt.in.rect 
                   (car pt) (car (last pt)) 
                   '(-85 -85 85 85)))
            (go begin))
        
        (setq count 1)  ;incremented for a position number
        pointer
        (if (pt.in.rect (car pt) 
                        (car (last pt))
                        (car (last (nth (isub count 1) places))))
            (return count)
            (progn 
              (setq count (iadd count 1))
              (go pointer)))))

;**************************************
;PT.IN.RECT tests to see whether a
;specific X and Y coordiate lies within 
;a given boundary rectangle :RECT.
;RECT should be a list of [TOP LEFT BOTTOM
; RIGHT] coordinates.

(defun pt.in.rect (x y rect)
  (and (< x (nth 3 rect))
       (  x (nth 1 rect))
       (¾ y (nth 2 rect))
       (  y (nth 0 rect))
       t))  ;returns T if true, NIL otherwise

Next month will include an indepth description of MacScheme, the first installment of an ExperOps5 tutorial and a couple more Lisp functions.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

TextSoap 8.4.1 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more
Backblaze 4.3.0.44 - Online backup servi...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Numi 3.15 - Menu-bar calculator supports...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more
EtreCheck 3.3.3 - For troubleshooting yo...
EtreCheck is an app that displays the important details of your system configuration and allow you to copy that information to the Clipboard. It is meant to be used with Apple Support Communities to... Read more
BusyContacts 1.1.8 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
TunnelBear 3.0.14 - Subscription-based p...
TunnelBear is a subscription-based virtual private network (VPN) service and companion app, enabling you to browse the internet privately and securely. Features Browse privately - Secure your data... Read more
Apple Final Cut Pro X 10.3.4 - Professio...
Apple Final Cut Pro X is a professional video editing solution.Completely redesigned from the ground up, Final Cut Pro adds extraordinary speed, quality, and flexibility to every part of the post-... Read more
Hopper Disassembler 4.2.1- - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32-bit and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about... Read more
Slack 2.6.2 - Collaborative communicatio...
Slack is a collaborative communication app that simplifies real-time messaging, archiving, and search for modern working teams. Version 2.6.2: Fixed Inexplicably, context menus and spell-check... Read more
Arq 5.8.5 - Online backup to Google Driv...
Arq is super-easy online backup for Mac and Windows computers. Back up to your own cloud account (Amazon Cloud Drive, Google Drive, Dropbox, OneDrive, Google Cloud Storage, any S3-compatible server... Read more

Latest Forum Discussions

See All

The best new games we played this week
We were quite busy this week. A bunch of big mobile games launched over the past few days, alongside a few teeny surprises. There're lots of quality games to load your phone with. We've gone and picked out five of our favorites for the week. [... | Read more »
Magikarp Jump beginner's guide
Magikarp Jump is a mystifying little game. Part Tamagotchi, part idle clicker, there's not a whole lot of video game there, per se, but for some reason we can't help coming back to it again and again. Your goal is to train up a little Magikarp to... | Read more »
Goat Simulator PAYDAY (Games)
Goat Simulator PAYDAY 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICES **iPhone 4S, iPad 2, iPod Touch 5 or better Goat Simulator: Payday is the most... | Read more »
GRID Autosport delayed until autumn
Sorry mobile racing fans -- GRID Autosport has been delayed a few months. The game is now expected to launch this fall on iOS. Feral Interactive announced that they wanted more time to work on the game's UI and overall performance before launching... | Read more »
Zombie Gunship Survival Beginner's...
The much anticipated Zombie Gunship Survival is here. In this latest entry in the Zombie Gunship franchise, you're tasked with supporting ground troops and protecting your base from the zombie horde. There's a lot of rich base building fun, and... | Read more »
Mordheim: Warband Skirmish (Games)
Mordheim: Warband Skirmish 1.2.2 Device: iOS Universal Category: Games Price: $3.99, Version: 1.2.2 (iTunes) Description: Explore the ruins of the City of Mordheim, clash with other scavenging warbands and collect Wyrdstone -... | Read more »
Mordheim: Warband Skirmish brings tablet...
Legendary Games has just launched Mordheim: Warband Skirmish, a new turn-based action game for iOS and Android. | Read more »
Magikarp Jump splashes onto Android worl...
If you're tired ofPokémon GObut still want something to satisfy your mobilePokémon fix,Magikarp Jumpmay just do the trick. It's out now on Android devices the world over. While it looks like a simple arcade jumper, there's quite a bit more to it... | Read more »
Purrfectly charming open-world RPG Cat Q...
Cat Quest, an expansive open-world RPG from former Koei-Tecmo developers, got a new gameplay trailer today. The video showcases the combat and exploration features of this feline-themed RPG. Cat puns abound as you travel across a large map in a... | Read more »
Jaipur: A Card Game of Duels (Games)
Jaipur: A Card Game of Duels 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: ** WARNING: iPad 2, iPad Mini 1 & iPhone 4S are NOT compatible. ** *** Special Launch Price for a limited... | Read more »

Price Scanner via MacPrices.net

Memorial Day savings: 13-inch Touch Bar MacBo...
B&H Photo has the 2016 Apple 13″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 13″ 2.9GHz/512GB... Read more
Apple refurbished 13-inch MacBook Airs availa...
Apple has Certified Refurbished 2016 13″ MacBook Airs available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 13″ 1.6GHz/8GB/128GB MacBook Air: $... Read more
Apple restocks refurbished 11-inch MacBook Ai...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models recently discontinued by Apple), available for up to $170 off original MSRP. An Apple one-year warranty is included with each... Read more
12-inch 1.2GHz Retina MacBooks on sale for up...
B&H has 12″ 1.2GHz Retina MacBooks on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 12″ 1.2GHz Space Gray Retina MacBook: $1449.99 $150 off... Read more
15-inch 2.7GHz Silver Touch Bar MacBook Pro o...
MacMall has the 15-inch 2.7GHz Silver Touch Bar MacBook Pro (MLW82LL/A) on sale for $2569 as part of their Memorial Day sale. Shipping is free. Their price is $230 off MSRP. Read more
Free Tread Wisely Mobile App Endorsed By Fath...
Just in time for the summer driving season, Cooper Tire & Rubber Company has announced the launch of a new Tread Wisely mobile app. Designed to promote tire and vehicle safety among teens and... Read more
Commercial Notebooks And Detachable Tablets W...
Worldwide shipments of personal computing devices (PCDs), comprised of traditional PCs (a combination of desktop, notebook, and workstations) and tablets (slates and detachables), are forecast to... Read more
Best value this Memorial Day weekend: Touch B...
Apple has Certified Refurbished 2016 15″ and 13″ MacBook Pros available for $230 to $420 off original MSRP. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2.6GHz... Read more
13-inch MacBook Airs on sale for up to $130 o...
Overstock.com has 13″ MacBook Airs on sale for up to $130 off MSRP including free shipping: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $869.99 $130 off MSRP - 13″ 1.6GHz/256GB MacBook Air (sku... Read more
2.8GHz Mac mini available for $973 with free...
Adorama has the 2.8GHz Mac mini available for $973, $16 off MSRP, including a free copy of Apple’s 3-Year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax in NY & NJ... Read more

Jobs Board

*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
Best Buy *Apple* Computing Master - Best Bu...
**509643BR** **Job Title:** Best Buy Apple Computing Master **Location Number:** 001482- Apple Valley-Store **Job Description:** **What does a Best Buy Apple Read more
*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
*Apple* Mac and Mobility Engineer - Infogrou...
Title: Apple Mac and Mobility Engineer Location: Portland, OR Area Type: 12 month contract Job: 17412 Here's a chance to take your skills to the limit, learn new Read more
*Apple* Retail - Multiple Positions, White P...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.