robotlolita

module Fib using: Platform where
  
  open Platform Prelude       expose [+, parse, as-string, ~]
  open Platform List          expose [zip:using:, map:, take:, filter:, sum]
  open Platform IO            expose [read-line, print]

  -- Typing things is currently cumbersome, but the type inference algorithm should catch 90% of this
  let (Num a) => String -> a ::
  x as-number = x parse

robotlolita

Write a program in your favourite programming language to compute the sum of the first N even numbers in the Fibonacci sequence, then display the sum of its digits.

E.g.: Where N = 5, the answer is 17, since:

1. The Fibonacci sequence is 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ...;
2. The first 5 even numbers are 0, 2, 8, 34, and 144;
3. The sum of these numbers is 188;
4. The sum of the digits of this answer is 17 (1 + 8 + 8).

robotlolita

/*

[DESAFIO / LANGUAGE WAR] Implemente um programa na sua linguagem favorita onde o usuário digita um número x, e o programa calcula o somatório dos x primeiros números pares da sequência fibonacci, e imprime a soma dos algarismos desse número. 

Por exemplo, quando x = 5, a resposta é 17, pois:
 1. A sequência fibonacci é 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233,...
 2. Os 5 primeiros números pares são 0, 2, 8 e 34, 144.
 3. O somatório disso é 188.
 4. Somando os algarismos, 1+8+8 = 17

SegFaultAX

function defmulti(keyfn)
  if not keyfn then
    keyfn = function(...) return ... end
  end
  local multi = {
    _keyfn = keyfn,
    _methods = {}
  }
  setmetatable(multi, {
    __call = function(self, ...)

gmorell

int[][] result;
float time;

void draw() {
  for (int i=0; i<width*height; i++)
    for (int a=0; a<3; a++)
      result[i][a] = 0;

  for (int sa=0; sa<samplesPerFrame; sa++) {
    time = map(frameCount-1 + sa*shutterAngle/samplesPerFrame, 0, numFrames, 0, 1);

xandkar

Is there a user-noticeable difference in how exceptions behave in SML vs OCaml?

Here're a couple of examples demonstrating the generative semantics of SML exceptions (derived from http://mlton.org/GenerativeException) followed by their analogues in OCaml:

1 in SML

robotlolita

You appear to be advocating a new:

• functional
• imperative
• object-oriented
• procedural
• stack-based
• "multi-paradigm"
• lazy
• eager
• statically-typed

VictorTaelin

What is wrong with the web and why we need Moon (draft)

A few days ago, I published an article about Moon, a fundamental building block of a decentralized browser that aims to solve many of Mist's problems. I've showed up some fancy features such as its decentralized package manager and a generalized monadic notation. I guess that made some people angry, wondering why the hell I made yet another programming language when we have so many of them. If you're on that group: you're right. I'm sorry. Believe me when I say I'm as tired of new languages as you, and I'm as pissed with myself as you are. But I'd not have done this if I didn't have a very good reason. Give me, thus, a chance to justify my sins. For one, I didn't actually invent a programming lang

jschoch

defmodule MyTime do
  defstruct stamp: {0,0,0}
  defimpl Poison.Encoder, for: MyTime do
    def encode(%MyTime{} = t,options) do
      list = Tuple.to_list(t.stamp)
      Poison.Encoder.Map.encode(%MyTime{stamp: list},options)
    end
  end
  defimpl Poison.Decoder, for: MyTime do
    def decode(s,options) do

bamorim

defmodule CoreBanking.StructSerializer do
  @behaviour EventStore.Serializer

  def serialize(x) do
    do_serialize(x) |> Poison.encode!
  end

  def deserialize(x, _opts) do
    x |> Poison.decode! |> do_deserialize
  end