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.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))))