ir4y

import operator


class Maybe(object):
    """
    Basic concept
    use https://github.com/Suor/whatever/tree/0d8b2c4fcdcb94f3eb6fa79d2fcdf84c8e39286d
    for initial hacking
    """
    def __init__(self, val, nothing=None):

ir4y

module Hello where

import Graphics.Element exposing (Element, show)
import Task exposing (Task, andThen)

import Html exposing (..)
import Html.Attributes exposing (style, value)
import Html.Events exposing (onClick, on, targetValue)

import Json.Decode as Json

ir4y

import Focus
import Array
import Maybe
atL Int -> a -> Focus (Array.Array a) a
atL index default = Focus.create ((Maybe.withDefault  default) << (Array.get index))\
                                 (\f r -> (Array.set index 
                                                     (f (Maybe.withDefault  default (Array.get index r)))
                                                     r))

ir4y

import React from 'react';
import SchemaBranchMixin from 'baobab-react-schemabranchmixin';

const Counter = React.createClass({
   displayName: 'Counter',

    mixins: [SchemaBranchMixin, ],
    schema: {
      value: 0,
    },

ir4y

xx :: [a] -> [a] -> [[a]]
[] `xx` xs = []
xs `xx` [] = []
(a:as) `xx` bs = (a `x` bs) ++ (as `xx` bs)

x :: a -> [a] -> [[a]]
a `x` [] = []
a `x` (b:bs) = [[a,b]] ++ (a `x` bs)

ir4y

markTree :: Tree () -> State Integer (Tree Integer)
markTree (Leaf _) = do    
    n <- get
    put (n+1)
    return (Leaf n)
markTree (Fork l _ r) = do
    l' <- markTree l
    n  <- get
    put (n+1)
    r' <- markTree r

ir4y

var responseFromGoogle = axios.get(googleBooksUrl);
var responseFromCrossRef = = axios.get(crossRefUrl);
Promise.all([responseFromGoogle, responseFromCrossRef]).then(function(responses){
  var googleData = cleanGoogleBooks(responses[2]);
  var crossRefData = cleanCrossRef(responses[1]);
  response.send({google: googleData, crossRef: crossRefData});
});

ir4y

#!/bin/bash
fallocate -l 10G /swapfile
chmod 600 /swapfile
mkswap /swapfile
swapon /swapfile
apt-get install htop
htop
## curl https://gist.githubusercontent.com/ir4y/063a8b1912c3ed6ef03bb463cb2fcffa/raw/8eff8079c3853a11534dfa94fb26acc72ccb12e1/add_swap.sh | bash

ir4y

https://docs.google.com/presentation/d/1oejsDvtVuEHWKWAwJn_gHDL7p7zQrxI341fz33xMs24/edit#slide=id.p

ir4y

item:
  - text: Diagnostic
    linkId: diagnosis-code
  - text: Côté diagnostic
    linkId: acc-diagnosis-side
    answerOption:
      - valueCoding:
          code: left
          system: 'https://www.acc.co.nz'
          display: La gauche