Daniel Kvasnička dkvasnicka

## keybase.md

      
              1 file
            
          
              0 forks
            
          
                0 comments
              
            
              0 stars
            
          
                dkvasnicka
                / keybase.md
            
            
              Created
              August 7, 2021 10:49
            
          
    Keybase proof

I hereby claim:

I am dkvasnicka on github.
I am dkvasnicka (https://keybase.io/dkvasnicka) on keybase.
I have a public key ASCzKqMENpeKa_hmnrf1upvL9TxL_a3TpGVvUTY7f7aAkgo

To claim this, I am signing this object:

  
## Dockerfile
FROM gcr.io/deepnote-200602/templates/deepnote

RUN sudo apt-get update && \
    sudo apt-get install -y libzmq5

# Derived from https://github.com/jackfirth/racket-docker which is
# licensed under the MIT license.

ENV RACKET_INSTALLER_URL=http://mirror.racket-lang.org/installers/7.8/racket-7.8-x86_64-linux-natipkg.sh
ENV RACKET_VERSION=7.8

## dot.clj
(let [rng (doall (range 1000000))]
  (time (reduce + (map * rng rng))))

## gist:5908493
(module

  (extern nanotime () -> u64)

  (define (main)
    (let ((v1 (iota 1000)) (v2 (iota 1000)))
        (let ((start (nanotime))
              (result
                (reduce +
                   (kernel ((x v1) (y v2))

## gist:5692932
(defun curryplus (x)
  (lambda (y) (+ x y)))

(funcall (curryplus 2) 3) ; = 5

## gist:5691519
#lang racket

(define (curryplus x)
  (lambda (y) (+ x y)))

((curryplus 2) 3) ; = 5

## gist:5691514
(defn curryplus [x]
  #(+ x %))

((curryplus 2) 3) ; = 5

## app.rkt
#lang racket
(require (planet dmac/spin))
(get "/hello/:name" (lambda (req) (string-append "Hello, " (params req 'name))))
(run)
	FROM gcr.io/deepnote-200602/templates/deepnote

	RUN sudo apt-get update && \
	sudo apt-get install -y libzmq5

	# Derived from https://github.com/jackfirth/racket-docker which is
	# licensed under the MIT license.

	ENV RACKET_INSTALLER_URL=http://mirror.racket-lang.org/installers/7.8/racket-7.8-x86_64-linux-natipkg.sh
	ENV RACKET_VERSION=7.8
	(let [rng (doall (range 1000000))]
	(time (reduce + (map * rng rng))))
	(module

	(extern nanotime () -> u64)

	(define (main)
	(let ((v1 (iota 1000)) (v2 (iota 1000)))
	(let ((start (nanotime))
	(result
	(reduce +
	(kernel ((x v1) (y v2))
	(defun curryplus (x)
	(lambda (y) (+ x y)))

	(funcall (curryplus 2) 3) ; = 5
	#lang racket

	(define (curryplus x)
	(lambda (y) (+ x y)))

	((curryplus 2) 3) ; = 5
	#lang racket
	(require (planet dmac/spin))
	(get "/hello/:name" (lambda (req) (string-append "Hello, " (params req 'name))))
	(run)