josejuan

open Optimization
open System.Linq

type CheckPoint = {
        CPId : string   // checkpoint Id
        Lat : double    // latitude
        Lon : double    // longitude
    }

type InterestPoint = {

josejuan

lpfib :: Int -> (Int, [Int])
lpfib 0 = (1, [1])
lpfib 1 = (1, [1, 1])
lpfib n = aq `par` bq `pseq` (a + b, as ++ bs ++ [a + b])
          where aq@(a, as) = lpfib (n - 1)
                bq@(b, bs) = lpfib (n - 2)

-- por ejemplo
main = getArgs >>= mapM_ print . snd . lpfib . read . head

phatboyg

namespace Faulty
{
    using System;
    using MassTransit;


    public interface FaultyCommand
    {
        string Id { get; }
    }

tpolecat

  implicit def treeEncode[A: EncodeJson]: EncodeJson[Tree[A]] =
    EncodeJson(t => (t.rootLabel, t.subForest).asJson)

  implicit def treeDecode[A: DecodeJson]: DecodeJson[Tree[A]] =
    DecodeJson(c =>
      for {
        rootLabel <- (c =\ 0).as[A]
        subForest <- (c =\ 1).as[Stream[Tree[A]]]
      } yield Tree.node(rootLabel, subForest)

jpluimers

C:\bin>DISM /online /cleanup-image /restorehealth

Deployment Image Servicing and Management tool
Version: 6.2.9200.16384

Image Version: 6.2.9200.16384

[==========================100.0%==========================]
The restore operation completed successfully. The component store corruption was repaired.
The operation completed successfully.

hafuu

module ObsoleteAttributeTest
 
open System
 
module Record =
  [<Obsolete>]
  type Foo = {
    A: string
    B: int
  }

panesofglass

type App = Routes<"path to spec">
App.RootR.Get(fun request -> async { return! process request })
// This sets the implementation for the GET on the root.
// The MbP contains the logic to write the response to the underlying socket stream.

contratests.fs

module Test.z

/// Actual test function
type 'a TestCode = 'a -> unit

/// Test tree
type 'a Test =
     | TestCase of 'a TestCode
     | TestList of 'a Test seq
     | TestLabel of string * 'a Test

tpolecat

scala> case class Bad(a: Int) { override def equals(a:Any) = true }
scala> val f = (n:Int) => Bad(n)
scala> val g = (b:Bad) => b.a

...

scala> Set(1,2,3).map(f andThen g)
res2: scala.collection.immutable.Set[Int] = Set(1, 2, 3)

scala> Set(1,2,3).map(f).map(g)

ion1

What is inside Haskell IO?

<lambdabot> shachaf says: getLine :: IO String contains a String in the same
            way that /bin/ls contains a list of files

There are multiple ways IO could be implemented internally. Here’s a demonstration of one.

MiniIO (below) implements an ADT of arbitrarily chosen primitives that represent I/O operations and a way to combine them. One can create, evaluate and manipulate MiniIO values without causing any side effects to occur. That is what example in Main.hs does. The same applies to real IO values in Haskell: you can create a big list of print "hello"s and later pick which ones to actually execute.