cky

Code-golf? What's that?

Code-golf is a competition to solve a particular problem in the fewest bytes of source code.

What are the requirements of a code-golf?

• The question must be Community-wiki. Please flag for moderator attention to make it so.

cky

(use-srfis '(1 69))
(read-hash-extend #\#
  (lambda (c port)
    (define ht (make-hash-table eqv?))
    (define (ht-ref key)
      (hash-table-ref ht key (lambda ()
                               (define sym (gensym))
                               (hash-table-set! ht key sym)
                               sym)))
    (define (hash-key x)

cky

(define-syntax pollute-my-namespace
  (let ((letters "abcdefghijklmnopqrstuvwxyz_")
        (char->symbol (compose string->symbol string)))
    (define (make-macros stx)
      (lambda ()
        (for*/lists (ids syntaxes)
                    ((x letters)
                     (y letters))
          (if (char=? x y)
              (values (datum->syntax stx (char->symbol #\^ x))

cky

#lang racket
(define (get-candidates)
  (define row (sub1 (read)))
  (for/seteqv ((i (in-range 16))
               (item (in-producer read))
               #:when (= (quotient i 4) row))
    item))

(define T (read))
(for ((c (in-range T)))

cky

import java.util.Arrays;

/**
 * Demonstration of bound method references.
 */
public class MethodReferenceExample1 {
    public static void main(String[] args) {
        Arrays.stream(args, 1, args.length).filter(args[0]::contains)
                .forEach(System.out::println);
    }

cky

;;;; SHA-1 and SHA-2 implementations.
;;;; Uses R7RS bytevector and byte I/O interfaces.
;;;; Requires SRFIs 1, 26, 43, and 60.

;;; Auxiliary definitions to avoid having to use giant tables of constants.

(define primes80 '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
                   79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157
                   163 167 173 179 181 191 193 197 199 211 223 227 229 233 239
                   241 251 257 263 269 271 277 281 283 293 307 311 313 317 331

cky

package nz.kiwi.chris.demo;

import java.util.Arrays;
import java.util.Comparator;

import com.sun.jna.Callback;
import com.sun.jna.Function;
import com.sun.jna.IntegerType;
import com.sun.jna.Library;
import com.sun.jna.Native;

cky

Keybase proof

I hereby claim:

• I am cky on github.
• I am cky (https://keybase.io/cky) on keybase.
• I have a public key whose fingerprint is D452 5B49 1CE4 D047 1BFF 1090 8E54 9D02 234C C324

To claim this, I am signing this object:

cky

import java.io.DataInputStream;
import java.io.DataOutputStream;
import java.io.File;
import java.io.IOException;
import java.net.ServerSocket;
import java.net.Socket;

import java.util.ArrayList;
import java.util.Arrays;
import java.util.Collection;

cky

#lang racket
(for ((c (in-range (read)))
      (smax (in-port))
      (line (in-port (compose string-trim read-line))))
  (define-values (extras total)
    (for/fold ((extras 0) (total 0))
              ((i (in-range (add1 smax)))
               (j (in-string line)))
      (define n (- (char->integer j) (char->integer #\0)))
      (define cur-extras (max (- i total) 0))