Life Outside PLT1

using System;
using System.Collections.Generic;
using Microsoft.Xna.Framework;
using Microsoft.Xna.Framework.Audio;
using Microsoft.Xna.Framework.Content;
using Microsoft.Xna.Framework.GamerServices;
using Microsoft.Xna.Framework.Graphics;
using Microsoft.Xna.Framework.Input;
using Microsoft.Xna.Framework.Net;
using Microsoft.Xna.Framework.Storage;
 
namespace SnakeXNA
{
    static class Program
    {
        static void Main(string[] args)
        {
            using (SnakeXNA game = new SnakeXNA())
            {
                game.IsFixedTimeStep = true;
                game.TargetElapsedTime = new TimeSpan(500000);
                game.Run();
            }
        }
    }
 
    public class SnakeXNA : Microsoft.Xna.Framework.Game
    {
        GraphicsDeviceManager graphics;
        SpriteBatch spriteBatch;
 
        private static Random myRnd = new Random();
        private Point apple = new Point(myRnd.Next(64 - 1) * 10, myRnd.Next(48 - 1) * 10);
        private Point dir = new Point(0, 10);
        private LinkedList<Point> snake = new LinkedList<Point>(); //LinkedList doesn't have add...
        private Texture2D mySquare; //In XNA we need a texture to draw stuff with
        private Boolean isRunning = true;
 
        public SnakeXNA()
        {
            graphics = new GraphicsDeviceManager(this);
            Content.RootDirectory = "Content";
        }
 
        protected override void Initialize()
        {
            snake.AddFirst(new Point(10, 10));
            base.Initialize();
        }
 
        protected override void LoadContent()
        {
            spriteBatch = new SpriteBatch(GraphicsDevice);
            mySquare = Content.Load<Texture2D>("GameThumbnail");  
        }
 
        protected override void Update(GameTime gameTime)
        {
            KeyboardState myState = Keyboard.GetState();
 
            if (myState.IsKeyDown(Keys.Left)) { dir = new Point(-10, 0); }
            if (myState.IsKeyDown(Keys.Right)) { dir = new Point(10, 0); }
            if (myState.IsKeyDown(Keys.Up)) { dir = new Point(0, -10); }
            if (myState.IsKeyDown(Keys.Down)) { dir = new Point(0, 10); }
 
            if (isRunning)
            {
                snake.AddFirst(new Point(snake.First.Value.X + dir.X, snake.First.Value.Y + dir.Y));
                snake.RemoveLast();
            }
 
            base.Update(gameTime);
        }
 
        protected override void Draw(GameTime gameTime)
        {
            graphics.GraphicsDevice.Clear(Color.CornflowerBlue);
 
            spriteBatch.Begin(SpriteBlendMode.AlphaBlend);
            spriteBatch.Draw(mySquare, new Rectangle(apple.X + 2, apple.Y + 2, 5, 5), Color.Green); //Draw apple.
 
            int i = 0;
            foreach (Point cur in snake)  //Draw snake and check self collision
            {
                spriteBatch.Draw(mySquare, new Rectangle(cur.X , cur.Y , 10, 10), Color.White);
                if (i != 0 && snake.First.Value.X == cur.X && snake.First.Value.Y == cur.Y) { isRunning = false ; }
                i++;
            }
 
            if (snake.First.Value.X == apple.X && snake.First.Value.Y == apple.Y) //Collision apple
            {
                apple = new Point((myRnd.Next(64 - 1)) * 10, (myRnd.Next(48 - 1)) * 10);
                snake.AddLast(snake.Last.Value);
            }
 
            spriteBatch.End();
            base.Draw(gameTime);
        }
    }
}

using System;
using System.Collections.Generic;
using System.Drawing;
using System.Windows.Forms;
 
namespace SnakeCSharp
{
	public partial class SnakeCSharpWindow : Form
	{
		private Timer t = new Timer();
		private static Random myRnd = new Random();
		private Point apple = new Point(myRnd.Next(64-1) * 10, myRnd.Next(48-1) * 10);
		private Point dir = new Point(0, 10);
		private LinkedList<Point> snake = new LinkedList<Point>(); //LinkedList doesn't have add...
 
		public SnakeCSharpWindow()
		{
			this.ClientSize = new System.Drawing.Size(640, 480);
			this.FormBorderStyle = FormBorderStyle.FixedSingle;
			this.Name = "SnakeCSharpWindow";
			this.Text = "SnakeCSharp";
			this.Paint += new PaintEventHandler(SnakeCSharpWindow_Paint);
			this.KeyDown += new KeyEventHandler(SnakeCSharpWindow_KeyDown);
			t.Tick += new EventHandler(t_Tick);
			t.Start();
			snake.AddFirst(new Point(10,10));
		}
 
		void SnakeCSharpWindow_KeyDown(object sender, KeyEventArgs e) //Change direction
		{
			if (e.KeyCode == Keys.Left) {dir = new Point (-10,0 );}
			if (e.KeyCode == Keys.Right) {dir = new Point(10, 0);}
			if (e.KeyCode == Keys.Up) {dir = new Point(0, -10);}
			if (e.KeyCode == Keys.Down) {dir = new Point(0, 10);}
		}
 
		void SnakeCSharpWindow_Paint(object sender, PaintEventArgs e)
		{
			e.Graphics.FillRectangle(Brushes.Green, apple.X  + 2, apple.Y + 2, 5, 5);
 
			int i = 0;
			foreach (Point cur in snake)  //Draw snake and check self collision
			{
				e.Graphics.FillRectangle(Brushes.Black, cur.X, cur.Y, 10, 10);
				if (i != 0 && snake.First.Value.X == cur.X && snake.First.Value.Y == cur.Y ) { t.Stop(); }
				i++;
			}
 
			if (snake.First.Value.X == apple.X && snake.First.Value.Y == apple.Y) //Collision apple
			{
				apple = new Point((myRnd.Next(64-1)) * 10, (myRnd.Next(48-1)) * 10);
				snake.AddLast(snake.Last.Value);
			}
 
		}
		void t_Tick(object sender, EventArgs e) //Move Snake
		{
			snake.AddFirst(new Point(snake.First.Value.X + dir.X, snake.First.Value.Y + dir.Y));
			snake.RemoveLast();
			this.Refresh();
		}
	}
}

(import '(java.awt Color) '(javax.swing JPanel JFrame Timer)
         '(java.awt.event KeyEvent ActionListener KeyListener))
 
(defn gen-apple [_] [(rand-int 750) (rand-int 550)])
(defn move [{:keys [body dir] :as snake} & grow]
   (assoc snake :body (cons (vec (map #(+ (dir %) ((first body) %)) [0  
1]))
                            (if grow body (butlast body)))))
(defn turn [snake newdir] (if newdir (assoc snake :dir newdir) snake))
(defn collision? [{[b] :body} a]
   (every? #(<= (- (a %) 10) (b %) (+ 10 (a %))) [0 1]))
(defn paint [g p c] (.setColor g c) (.fillRect g (p 0) (p 1) 10 10))
 
(def dirs {KeyEvent/VK_LEFT [-10 0] KeyEvent/VK_RIGHT [10 0]
            KeyEvent/VK_UP   [0 -10] KeyEvent/VK_DOWN  [0 10]})
(def apple (atom (gen-apple nil)))
(def snake (atom {:body (list [10 10]) :dir [10 0]}))
(def colors {:apple (Color. 210 50 90) :snake (Color. 15 160 70)})
(def panel (proxy [JPanel ActionListener KeyListener] []
              (paintComponent [g] (proxy-super paintComponent g)
                              (paint g @apple (colors :apple))
                              (doseq [p (:body @snake)]
                                (paint g p (colors :snake))))
              (actionPerformed [e] (if (collision? @snake @apple)
                                     (do (swap! apple gen-apple)
                                         (swap! snake move :grow))
                                     (swap! snake move))
                               (.repaint this))
              (keyPressed [e] (swap! snake turn (dirs (.getKeyCode e))))
              (keyReleased [e])
              (keyTyped [e])))
 
(doto panel (.setFocusable true)(.addKeyListener panel))
(doto (JFrame. "Snake")(.add panel)(.setSize 800 600)(.setVisible true))
(.start (Timer. 75 panel))

;(import '(java.awt.event KeyEvent ActionListener KeyListener)
;        '(javax.swing JPanel JFrame Timer))
 
;(defn gen-apple [] {:x (int (* 790 (. Math (random)))) :y (int (* 590 (. Math (random))))})
 
;(def snake (ref {:body (list {:x 10 :y 10}) :dir {:x 10 :y 0}}))
;(def apple (ref (gen-apple)))
;(def dirs {(. KeyEvent VK_LEFT) {:x -10 :y 0} (. KeyEvent VK_RIGHT) {:x 10 :y 0}
;           (. KeyEvent VK_UP)   {:x 0 :y -10} (. KeyEvent VK_DOWN)  {:x 0 :y 10}})
 
;(defn move [{body :body dir :dir :as snake} & opts]
;  (merge snake {:body (cons {:x (+ (:x dir) (:x (first body)))
;                             :y (+ (:y dir) (:y (first body)))}
;                            (if (:grow (apply hash-map opts)) body (butlast body)))}))
 
;(defn turn [snake newdir] (if newdir {:body (:body snake) :dir newdir} snake))
 
;(defn collision? [{[b & bs] :body} a]
;  (and (>= (+ 10 (:x b)) (:x a)) (<= (:x b) (+ 10 (:x a)))
;       (>= (+ 10 (:y b)) (:y a)) (<= (:y b) (+ 10 (:y a)))))
 
;(defn run-snake []
;  (let [panel (proxy [JPanel ActionListener KeyListener] []
;                (paintComponent [g] (proxy-super paintComponent g)
;                                    (. g (fillRect (:x @apple) (:y @apple) 10 10))
;                                    (doseq p (:body @snake) (. g (fillRect (:x p) (:y p) 10 10)))
;                                    (if (collision? @snake @apple)
;                                      (dosync (ref-set apple (gen-apple))
;                                              (alter snake move :grow true))))
;                (actionPerformed [e] (dosync (alter snake move))
;                                     (. this (repaint)))
;                (keyPressed [e] (dosync (alter snake turn (get dirs (. e (getKeyCode)))))))]
;    (doto panel (setFocusable true) (addKeyListener panel))
;    (doto (new JFrame "Snake") (add panel) (setSize 800 600) (setVisible true))
;    (. (new Timer 75 panel) (start))))

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.util.*;
 
public class SnakeJPanel extends JPanel implements ActionListener, KeyListener, MouseListener  {
 
	private javax.swing.Timer t = new javax.swing.Timer(75,this);
	private LinkedList<Point> snake = new LinkedList(); 
	private Point apple = new Point( (int)(Math.random() * 45) * 10, (int)(Math.random() * 45) * 10);
	private Point dir = new Point(0,10);
 
	public SnakeJPanel() {
		t.start(); //To make stuff work.
		addMouseListener(this); 
		addKeyListener(this);
		snake.add(new Point(10,10));	
	}
 
	public void paintComponent(Graphics g) {
		super.paintComponent(g);
 
		g.fill3DRect(apple.x + 2,apple.y + 2, 5,5,true)	; //Draw apple
		for(int i = 0; i < snake.size(); i++){ //Draw snake and check self collision
			g.fill3DRect( snake.get(i).x,  snake.get(i).y , 10 , 10, true); 
			if( i != 0 && snake.get(i).x == snake.getFirst().x && snake.get(i).y == snake.getFirst().y){ t.stop(); }	//Check collision.	
		}
 
		if(snake.getFirst().x == apple.x && snake.getFirst().y == apple.y){ //Collision apple
			apple = new Point((int)(Math.random() * 45) * 10,(int)(Math.random() * 45) * 10);
			snake.add(snake.getLast());
		}
	}
 
	public void actionPerformed(ActionEvent e){ //Move snake
		snake.addFirst(new Point(snake.getFirst().x + dir.x, snake.getFirst().y + dir.y));
		snake.removeLast();
		repaint();
	}
	public void keyPressed(KeyEvent e){ //Change direction
		if(e.getKeyCode() == KeyEvent.VK_LEFT){dir = new Point(-10,0);}
		if(e.getKeyCode() == KeyEvent.VK_RIGHT){dir = new Point(10,0);}
		if(e.getKeyCode() == KeyEvent.VK_UP){dir = new Point(0,-10);}
		if(e.getKeyCode() == KeyEvent.VK_DOWN){dir = new Point(0,10);}
	}
 
	public void mousePressed(MouseEvent e){ //Java Hack
        super.requestFocus();
        repaint();
    }
    public void mouseClicked(MouseEvent e){}
    public void mouseEntered(MouseEvent e){}
    public void mouseExited(MouseEvent e){}
    public void mouseReleased(MouseEvent e){} 	
    public void keyReleased(KeyEvent e){} 
    public void keyTyped(KeyEvent e){}
}