Shamrock-Frost

++++++++[>++++++++++<-]++++++++++[>>++++++++++<<-]>>+<<++++++++++[>>>+++++++++++<<<-]++++++++++[>>>>++++++++++<<<<-]>>>>+++++<<<<++++++++++[>>>>>+++++++++++<<<<<-]>>>>>+++++<<<<[.[-]>]

Shamrock-Frost

@FunctionalInterface
interface Test {
	public abstract void doThing();
}

//Place where code would be run
List<Test> tests = new ArrayList();
tests.add(() -> System.out.println("1"));
tests.add(() -> System.out.println("2"));
tests.add(() -> System.out.println("3"));

Shamrock-Frost

--Made for Pi day 2016

module PiDay(main) where

import Graphics.Gloss
import Data.Fixed

type Rectangle = [Float]

rSize :: Float

Shamrock-Frost

#Intro

Kotlin is a new programming language for the JVM. It produces Java bytecode, supports Android and generates JavaScript. The latest version of the language is Kotlin M5.3

Kotlin project website is at kotlin.jetbrains.org.

All the codes here can be copied and run on Kotlin online editor.

Let's get started.

Shamrock-Frost

package sample;

import javafx.application.Application;
import javafx.fxml.FXMLLoader;
import javafx.scene.Parent;
import javafx.scene.Scene;
import javafx.stage.Stage;
import java.io.IOException;

public class Main extends Application {

Shamrock-Frost

package sample;

public class Controller {
}

Shamrock-Frost

<?import javafx.geometry.Insets?>
<?import javafx.scene.layout.GridPane?>

<?import javafx.scene.control.Button?>
<?import javafx.scene.control.Label?>
<GridPane fx:controller="sample.Controller"
          xmlns:fx="http://javafx.com/fxml" alignment="center" hgap="10" vgap="10">
</GridPane>

Shamrock-Frost

module Main (main) where

import Data.Char (toLower)
import Prelude hiding (Either)
import Phyla

data Key a = Answer a | Either Question (Key a) (Key a)
instance (Show a) => Show (Key a) where show (Answer x) = show x 

type Question = String

Shamrock-Frost

import Data.Monoid hiding (Sum) 
 
class Monoid a => IntWrapper a where toInt :: a -> Int
 
newtype Sum = Sum Int deriving (Show, Eq)
instance IntWrapper Sum where toInt (Sum n) = n
instance Monoid Sum where
    mempty = Sum 0
    mappend (Sum a) (Sum b) = Sum (a + b)
 

Shamrock-Frost

{-# LANGUAGE RebindableSyntax #-}

import Prelude hiding ((>>=), return)

main = mapM_ (putStrLn . fizzbuzz) [1..100]

fizzbuzz n = do
    fizz <- (3, "Fizz")
    buzz <- (5, "Buzz") 
    return $ fizz ++ buzz