mbertheau

/*
 * cc -o main main.c -lreadline
 */

#include "readline/readline.h"

int main(int argc, const char* argv)
{
    char *line;
    while (1) {

mbertheau

set_of_lines = SetOfLines([])

stock_info = basket.strategy.fetch_for_product(product)
new_line_ref = object()
set_of_lines.add_line(Line(new_line_ref, product, stock_info.stockrecord, 1,
                           stock_info.price.incl_tax))

applicator = Applicator()
offers = applicator.get_offers(request, basket)
applicator.apply_offers(set_of_lines, offers, request.user)

mbertheau

#lang racket

(define hangul-data-file "src/racket-unihan/Unihan_Readings.txt")

(define (port-filter predicate)
  (define next-line
    (lambda (in)
      (define l (read-line in))
      (if (or (eof-object? l)
               (predicate l))

mbertheau

CronJob = require('cron').CronJob

new CronJob('* * * * * *', () ->
  console.log "tick"
  return
, null, true, "Europe/Berlin")

module.exports = (robot) ->
  tz = 'Europe/Berlin'
  new CronJob('* * * * * *', testBuild, null, true, tz)

mbertheau

from django.test.testcases import SimpleTestCase

class A(SimpleTestCase):
    def f(self):
        self.assertInHTML('a', '<span>a</span>')

    def runTest(self):
        pass

a = A()

mbertheau

#lang racket

(define (fizzbuzz)
   (for/list ([n (in-range 1 101)])
             (let ([fizz (zero? (remainder n 3))]
                   [buzz (zero? (remainder n 5))])
               (cond [(and fizz buzz) "FizzBuzz"]
                     [fizz "Fizz"]
                     [buzz "Buzz"]
                     [else (number->string n)]))))

mbertheau

def add_net_and_tax(discounts):
    discounts = map(lambda discount: assoc(discount, 'net', round(discount['gross'] / (1 + tax_rate))),
                    discounts)
    discounts = map(lambda discount: assoc(discount, 'tax', discount['gross'] - discount['net']),
                    discounts)
    return discounts

mbertheau

(defn progress-visualization:c [normal-progress overtime-progress text]
  (let [normal-bar [:div.progress-bar.progress-bar-success
                    (let [base-style {:style {:width (str normal-progress "%")}}
                          final-style (if overtime-progress
                                        base-style
                                        (assoc base-style :class "progress-bar-striped"))]
                      final-style) text]]
    (if overtime-progress
      [normal-bar
        [:div.progress-bar.progress-bar-warning.progress-bar-striped

mbertheau

(defmacro defhandler
  [handler-name argv body]
  `(re-frame.core/register-handler
    ~(keyword (name handler-name))
    (comp re-frame.core/debug re-frame.core/trim-v)
    (fn ~(if (> (count argv) 1)
           (vec (list (first argv) (vec (rest argv))))
           argv)
      ~body)))

mbertheau

(defn weekdays []
  (let [weekdays-ratom {:mon {:takes-place? true :times ["9:00" "10:30"]}
                        :tue {:takes-place? false}
                        :wed {:takes-place? false}
                        :thu {:takes-place? false}
                        :fri {:takes-place? false}
                        :sat {:takes-place? false}
                        :sun {:takes-place? false}} 
        names {:mon {:intro "und zwar jeden" :word "Montag"}
               :tue {:intro "und jeden" :word "Dienstag"}