CarlSmotricz

#lang racket/base
(require racket/list
         racket/future
         future-visualizer
         future-visualizer/trace)

; Objective: Building an equivalent to Clojure's PMAP .

; PMAP is a lot like MAP. As a first step, let's build our own MAP .

CarlSmotricz

I've done some research on the "POAT" question.

First, from various related discussions, a summary of the question and what I think are reasonable assumptions:

• There's no trickery going on, i.e. the pilot is not intentionally holding back to help prevent takeoff. One of the pages I'll be citing wastes a lot of words on this point.

• The brakes aren't being applied.

• The treadmill's reverse speed is based on the forward ground ("solid" ground, not treadmill ground) speed of the aircraft (including its wheels as seen from the wheel's centre), not on "the speed of the wheels" as very ambiguously stated in the question as we saw it on FB.

  To understand why this would be a problem, consider that so long as the wheels are not slipping, the velocity of the bottom of each wheel will be exactly equal to the velocity of the treadmill surface, while the velocity of the top of the wheel will be (plane's forward ground speed + treadmill's backward speed), in the "forward" direction. That way lies madness.

CarlSmotricz

class Ideone
{
	public static void main (String[] args)
	{
		int A, B, C, D;
		
		A = 1; B = 2;  C = 3;  D = 4;
        if (A + C == D) D = D - 2;
        if (2 * D + 4 * A < 10) A = A + 4;
        if (A + D > 3 * B + C) B = C - A;

CarlSmotricz

(ns countries.core
  (:use [clojure.java.io :only [reader]]
        [clojure.string :only [lower-case join]]
        [clojure.set :only [union]]))

; Regexp for a word in a city or country name.
; A country name may contain multiple words (space separated).
; African names may contain "!",
; Arabic names have lots of apostrophes (also backquotes),
; French (and other) names have hyphens.

CarlSmotricz

; a tiny, simple CAD program prototype in Clojure.
; Carl Smotricz, 2015-07-22

(ns nanocad.core
  (:use [seesaw core graphics])
  (:require [seesaw.mouse :refer [location]])
  (:import [javax.swing AbstractAction]))

(def CANVAS-WIDTH 400)