Mercurial > cortex

comparison org/cortex.org @ 4:50c92af2018e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed headers, make compat symlink
author Robert McIntyre <rlm@mit.edu>
date Thu, 20 Oct 2011 15:10:38 -0700
parents 92f8d83b5d0b
children e3c6d1c1cb00
comparison
equal deleted inserted replaced
3:6c93f2018655 4:50c92af2018e
1 #+title: Simulated Senses 1 #+title: Simulated Senses
2 #+author: Robert McIntyre 2 #+author: Robert McIntyre
3 #+email: rlm@mit.edu 3 #+email: rlm@mit.edu
4 #+MATHJAX: align:"left" mathml:t path:"../aurellem/src/MathJax/MathJax.js"
5 #+STYLE: <link rel="stylesheet" type="text/css" href="../aurellem/src/css/aurellem.css"/>
6 #+BABEL: :exports both :noweb yes :cache no :mkdirp yes
7 #+INCLUDE: ../aurellem/src/templates/level-0.org
8 #+description: Simulating senses for AI research using JMonkeyEngine3 4 #+description: Simulating senses for AI research using JMonkeyEngine3
5 #+SETUPFILE: ../../aurellem/org/setup.org
6 #+INCLUDE: ../../aurellem/org/level-0.org
7
9 8
10 * Background 9 * Background
11 Artificial Intelligence has tried and failed for more than half a 10 Artificial Intelligence has tried and failed for more than half a
12 century to produce programs as flexible, creative, and “intelligent” 11 century to produce programs as flexible, creative, and “intelligent”
13 as the human mind itself. Clearly, we are still missing some important 12 as the human mind itself. Clearly, we are still missing some important
387 (defvar *app-settings* 386 (defvar *app-settings*
388 (doto (AppSettings. true) 387 (doto (AppSettings. true)
389 (.setFullscreen false) 388 (.setFullscreen false)
390 (.setTitle "Aurellem.") 389 (.setTitle "Aurellem.")
391 ;; disable 32 bit stuff for now 390 ;; disable 32 bit stuff for now
392 ;;(.setAudioRenderer "Send") 391 (.setAudioRenderer "Send")
393 ) 392 )
394 "These settings control how the game is displayed on the screen for 393 "These settings control how the game is displayed on the screen for
395 debugging purposes. Use binding forms to change this if desired. 394 debugging purposes. Use binding forms to change this if desired.
396 Full-screen mode does not work on some computers.") 395 Full-screen mode does not work on some computers.")
397 396
551 550
552 (defn apply-map 551 (defn apply-map
553 "Like apply, but works for maps and functions that expect an implicit map 552 "Like apply, but works for maps and functions that expect an implicit map
554 and nothing else as in (fn [& {}]). 553 and nothing else as in (fn [& {}]).
555 ------- Example ------- 554 ------- Example -------
556 (defn jjj [& {:keys [www] :or {www \"oph yeah\"} :as env}] (println www)) 555 (defn jjj [& {:keys [www] :or {www \"oh yeah\"} :as env}] (println www))
557 (apply-map jjj {:www \"whatever\"}) 556 (apply-map jjj {:www \"whatever\"})
558 -->\"whatever\"" 557 -->\"whatever\""
559 [fn m] 558 [fn m]
560 (apply fn (reduce #(into %1 %2) [] m))) 559 (apply fn (reduce #(into %1 %2) [] m)))
561 560