cky

#lang racket
(require (for-syntax unstable/syntax))
(provide (rename-out [*in-nest-sequence in-nest-sequence]))

(define in-nest-sequence
  (case-lambda
    [(func init)
     (make-do-sequence
      (thunk (values identity func init #f #f #f)))]
    [(func . inits)

cky

#lang racket
(define (determinant p1 p2)
  (- (* (car p1) (cdr p2))
     (* (cdr p1) (car p2))))

(define points (read))
(define first (cons (read) (read)))
(define-values (area last)
  (for/fold ([area 0] [last first])
            ([i (in-range (sub1 points))]

cky

#lang racket
(define (expmod base exp m)
  (let recur ([exp exp])
    (cond [(zero? exp) 1]
          [(even? exp) (let* ([prev (recur (quotient exp 2))]
                              [result (modulo (sqr prev) m)])
                         (if (and (< 1 prev (sub1 m))
                                  (= result 1))
                             0
                             result))]

cky

function flatten(x) {
    var result = [];
    var appendToResult = function (xs) {
        result.splice(result.length, 0, ...xs);
    }
    if (Array.isArray(x)) {
        x.map(flatten).forEach(appendToResult);
    } else {
        result.push(x);
    }

cky

#!/usr/bin/ruby
require 'openssl'

TYPES = {
  6 => {magic: 'RSA1', private_key: false},
  7 => {magic: 'RSA2', private_key: true}
}

data = ARGV[0] ? File.binread(ARGV[0]) : $stdin.binmode.read
type, version, algo, magic, bits, rest = data.unpack('ccx2l<a4l<a*')

cky

#100DaysOfCode Log—Round 1—Chris Jester-Young

The log of my #100DaysOfCode challenge. Started on 1 January 2018.

Log

R1D1 (2018-01-01)

Created [SwiftJson] as a Swift port of [ktjson] and [c++17-json]. Coded up the basic JsonValue enum type.