tfc

#include <iostream>
#include <assert.h>

// This one vanishes in library
template <typename T, typename DerefT>
class iterator_facade
{
          T& thisT()       { return static_cast<      T&>(*this); }
    const T& thisT() const { return static_cast<const T&>(*this); }
public:

tfc

#include <iostream>
#include <string>

class Foo
{
    const std::string str;
public:
    Foo(const std::string &str_) : str{str_} {}
    ~Foo() { std::cout << str << " Foo's dtor called." << std::endl; }
};

tfc

odd_squares = []
for x in range(0, 19):
	if x % 2 == 1:
		odd_squares.append(x * x)
		
print(odd_squares)

# same in one line:
print([x * x for x in range(0, 19) if x % 2 == 1])

tfc

#include <iostream>
#include <string>
#include <vector>
#include <iterator>
#include <algorithm>
#include <cassert>

using namespace std;

template <typename IT>

tfc

#include <iostream>
int main() {
    auto List ([](auto ...params) {
        return [=](auto f) {
            return f(params...);  
        };
    });
    
    auto Tail ([=](auto f) {
        return f([=](auto p, auto ...rest) {

tfc

#include <iostream>
#include <optional>

/// library part

template <typename R, typename ... P>
auto lift_optional(R (*f)(P ... ps))
{
    return [f](std::optional<P> ... xs) -> std::optional<R> {
        if ((xs && ...)) {

tfc

#!/usr/bin/env stack
{- stack --install-ghc runghc --package aeson --package hspec -}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE OverloadedStrings #-}

import Control.Applicative
import Data.Aeson
import Test.Hspec

-- Rocket.hs library file

tfc

#include <assert.h>

template <typename T>
class comparison_impl
{
    const T& thisT() const { return *static_cast<const T*>(this); }
public:
    // operator== is implemented by T

    template <typename U>

tfc

#!/usr/bin/env stack
-- stack --resolver lts-10.7 --install-ghc runghc

import Control.Concurrent (threadDelay)
import Control.Monad.State

data TrafficLightColor = Red | Yellow | Green deriving Show

type TrafficLightState = (TrafficLightColor, Int) 

tfc

diff --git a/src/hydra-eval-jobs/hydra-eval-jobs.cc b/src/hydra-eval-jobs/hydra-eval-jobs.cc
--- a/src/hydra-eval-jobs/hydra-eval-jobs.cc
+++ b/src/hydra-eval-jobs/hydra-eval-jobs.cc
@@ -281,7 +281,7 @@ int main(int argc, char * * argv)
 
                 /* Prevent access to paths outside of the Nix search path and
                    to the environment. */
-                evalSettings.restrictEval = true;
+                evalSettings.restrictEval = false;