Adam Moore minikomi

## gist:8837559

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                minikomi
                / gist:8837559
            
            
              Created
              February 6, 2014 02:40
                — forked from bitemyapp/gist:8739525
            
          
    I like LYAH as a reference and cheat-sheet but I found it a little slow for learning Haskell.
Here's my recommended order for just learning Haskell:
http://yannesposito.com/Scratch/en/blog/Haskell-the-Hard-Way/ 80% completion here is fine if you feel your attention waning, the next thing will address hammering in things like functors and monads via typeclasses.
https://github.com/NICTA/course/ this will hammer in the lessons in a very direct form by forcing you to confront the challenges and lessons learned by the creators and community of Haskell itself. Doing the exercises here is critical for being fluent.
Real World Haskell is available online. I recommend it as a reference only.

  
## jyanken.json
[
    {
        "title": "34th Single",
        "rounds": [
            {
                "winner": "松井珠理奈",
                "loser": "上枝恵美加",
                "hand": "Paper",
                "round": 84
            },

## canvas.rkt
#lang racket/gui

(require (planet williams/animated-canvas/animated-canvas))

(define W 1200)
(define H 1200)

(define all-colors (send the-color-database get-names))

(define no-pen (new pen% [style 'transparent]))

## gist:9384332
{
"a": "yeah"
}

## particles.rkt
#lang racket/gui

(require (planet williams/animated-canvas/animated-canvas)
         racket/unsafe/ops
         profile)

(define W 800)
(define H 800)

(define all-colors (take (send the-color-database get-names) 20))

## sprunge-like.clj
(ns sprulj.core
  (:use compojure.core
        [appengine-magic.multipart-params :only [wrap-multipart-params]])
  (:require [appengine-magic.core :as ae]
            [appengine-magic.services.datastore :as ds]
            ))

(def VALID-CHARS
  (->>
    (concat (range 48 58)

## tictactoe.rkt
(define (splice lst idx new)
  (append (take lst idx)
          (cons new (drop lst (add1 idx)))))

(define combinations
  '(; rows
    (0 1 2)(3 4 5)(6 7 8)
    ; cols
    (0 3 6)(1 4 7)(2 5 8)
    ; diags

## main.less
@import "./pure-min.css";
@import "./side-menu.less";

## advanced-ant.rkt
#lang racket

; http://www.reddit.com/r/dailyprogrammer/comments/2c4ka3/7302014_challenge_173_intermediate_advanced/

(require 2htdp/universe
         2htdp/image)

(define possible-colors
  (list->vector
   (map (λ (c) (apply make-color c))

## index.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<title>Instagram Likes</title>
<style>
.axis text {
  font: 10px sans-serif;
}
	[
	{
	"title": "34th Single",
	"rounds": [
	{
	"winner": "松井珠理奈",
	"loser": "上枝恵美加",
	"hand": "Paper",
	"round": 84
	},
	#lang racket/gui

	(require (planet williams/animated-canvas/animated-canvas))

	(define W 1200)
	(define H 1200)

	(define all-colors (send the-color-database get-names))

	(define no-pen (new pen% [style 'transparent]))
	#lang racket/gui

	(require (planet williams/animated-canvas/animated-canvas)
	racket/unsafe/ops
	profile)

	(define W 800)
	(define H 800)

	(define all-colors (take (send the-color-database get-names) 20))
	(ns sprulj.core
	(:use compojure.core
	[appengine-magic.multipart-params :only [wrap-multipart-params]])
	(:require [appengine-magic.core :as ae]
	[appengine-magic.services.datastore :as ds]
	))

	(def VALID-CHARS
	(->>
	(concat (range 48 58)
	(define (splice lst idx new)
	(append (take lst idx)
	(cons new (drop lst (add1 idx)))))

	(define combinations
	'(; rows
	(0 1 2)(3 4 5)(6 7 8)
	; cols
	(0 3 6)(1 4 7)(2 5 8)
	; diags
	#lang racket

	; http://www.reddit.com/r/dailyprogrammer/comments/2c4ka3/7302014_challenge_173_intermediate_advanced/

	(require 2htdp/universe
	2htdp/image)

	(define possible-colors
	(list->vector
	(map (λ (c) (apply make-color c))
	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="UTF-8" />
	<title>Instagram Likes</title>
	<style>
	.axis text {
	font: 10px sans-serif;
	}