netzwerg

package ch.netzwerg

import cats.data.Xor
import io.circe._
import io.circe.generic.auto._
import io.circe.parser._
import org.scalajs.dom.document

import scala.scalajs.js

netzwerg

import javaslang.collection.Stream;

/**
 * An implementation of https://dierk.gitbooks.io/fregegoodness/content/src/docs/asciidoc/fizzbuzz.html
 * using http://www.javaslang.io
 *
 * @author Rahel Lüthy
 */
public class FizzBuzz {

netzwerg

import javaslang.collection.Stream;
import org.junit.Test;

import java.util.concurrent.atomic.AtomicLong;
import java.util.stream.Collectors;
import java.util.stream.IntStream;

import static org.junit.Assert.assertEquals;

public class ZipWithIndexTest {

netzwerg

import javaslang.collection.List;
import org.junit.Test;

import java.util.Iterator;
import java.util.stream.Collectors;
import java.util.stream.IntStream;

public class ZipSpeedTest {

    private static final java.util.List<String> JAVA_LIST = IntStream.range(0, 1_000_000).mapToObj(String::valueOf).collect(Collectors.toList());

netzwerg

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element
import Debug exposing (..)


type alias Rect = { width: Float, color: Color }


toForm : (Rect, Float) -> Form

netzwerg

import Graphics.Element exposing (..)
import Signal exposing (..)
import Graphics.Input exposing (hoverable)

main : Signal Element
main =
  Signal.map view hover.signal

hover : Signal.Mailbox String
hover = Signal.mailbox "–"

netzwerg

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Time exposing (..)
import Window
import List exposing (..)
import Debug

-- CONFIG

netzwerg

module Print where 

-- Identical to the Haskell version (Print.hs)
-- Frege doesn't print line 7 (even a manual stdout.flush afterwards doesn't work)
main = do
    putStrLn "A line with line termination"
    putStr   "A line without line termination, e.g. to prompt for input: "
    line <-  getLine
    putStrLn ("You entered: " ++ line)