sean-clayton

type maybeString = string option
let myMaybeString: maybeString = Some "howdy"
let myString =
  match myMaybeString with
  | Some s -> s
  | None  -> ""

sean-clayton

let useTheme = () => {
  open ReactResponsiveRe;
  open Dom.Storage;
  open AppStyles;
  open AppStyles.ThemeNames;
  open AppStyles.ThemeStore;

  let prefersDarkMode = useMediaQuery("(prefers-color-scheme: dark)");

  let systemTheme =

sean-clayton

import react, {useState, createElement as h} from "react";

// With JSX

function MyComponent() {
  const [count, setCount] = useState(0);
  return (
    <div>
      <h1 className="heading" onClick={() => setCount(count + 1)}>
        Hello world!

sean-clayton

• https://graphql.github.io/graphql-spec/June2018/
• https://graphql.org/learn/
• https://www.howtographql.com/
• https://github.com/chentsulin/awesome-graphql

sean-clayton

// F#

type LinkedList<'a> =
| Nil
| Node of 'a  * LinkedList<'a>

let head =
    function
    | Nil -> Nil
    | Node(x, _) -> x

sean-clayton

let fizzBuzz attempt =
    match attempt with
    | (0, 0, _) -> "FizzBuzz"
    | (0, _, _) -> "Fizz"
    | (_, 0, _) -> "Buzz"
    | (_, _, n) -> n.ToString()

for num in 1..100 do
    printfn "%s" (fizzBuzz (num % 3, num % 5, num))
    

sean-clayton

function FingerprintWrapper(e) {
  var t = null,
    r = new n();
  c.rebuildXMLHttpRequest(e.ajax_header), c.fetchAjaxHeaders(e);
  var d = function(n) {
      if (!t) {
        t = n ? n.type : "manual/other";
        var d = function(t) {
            var r = a();
            if (r) {

sean-clayton

{
  "global": {
    "check_for_updates_on_startup": true,
    "show_in_menu_bar": true,
    "show_profile_name_in_menu_bar": false
  },
  "profiles": [
    {
      "complex_modifications": {
        "parameters": {

sean-clayton

/**
  * Check if the component disabled value is "truthy"
  *
  * This check is done here due to ngc throwing an error when the logic is in the template
  *
  * @param disabledValue string or boolean value to evaluate
  */
public isDisabled(disabledValue: boolean | string) {
  if (disabledValue === true || disabledValue === "true") {
    return true;

sean-clayton

-- Eight queens solution in 5 lines of haskell

solution :: [Int]
solution = head (allSolutions !! 8)

allSolutions :: [[[Int]]]
allSolutions = iterate (concatMap extendSolution) [[]]

extendSolution :: [Int] -> [[Int]]
extendSolution qs = map (:qs) $ filter (`okToAdd` qs) [0..7]