about summary refs log tree commit diff stats
path: root/rkt/double.rkt
blob: 3ef075592b0173b121ed6c1b8039484787638371 (plain) (blame)
1
2
3
4
5
6
7
8
9
#lang racket

(define (double v)
  ((if (string? v) string-append +) v v))

(string-append "ba"
               (double "na"))

(double 21)