chansey97

#lang racket
(provide (except-out (all-defined-out)
                     stack))

(struct exn:fail:stack exn:fail ())

(struct stack ([vector]
               [top #:mutable])
  #:transparent)

chansey97

#lang racket

(define the-key 'the-key)
(define the-spell-book 'the-spell-book)

(define person%
  (class object%
    (init-field items h)
    (super-new)         
    

chansey97

{-# LANGUAGE DeriveFunctor, TypeFamilies #-}

module Main where

data Pair a = Pair a a
  deriving (Eq)

getFst :: Pair a -> a
getFst (Pair x1 _) = x1

chansey97

{-# LANGUAGE DeriveFunctor, TypeFamilies #-}

module Main where

data Pair a = Pair a a
  deriving (Eq)

getFst :: Pair a -> a
getFst (Pair x1 _) = x1