From f67aecd5015ffd45701981bf5c2c95836f47efe7 Mon Sep 17 00:00:00 2001
From: elioat <{ID}+{username}@users.noreply.github.com>
Date: Wed, 31 Jul 2024 14:06:24 -0400
Subject: *

---
 rkt/double.rkt | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 rkt/double.rkt

(limited to 'rkt')

diff --git a/rkt/double.rkt b/rkt/double.rkt
new file mode 100644
index 0000000..3ef0755
--- /dev/null
+++ b/rkt/double.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(define (double v)
+  ((if (string? v) string-append +) v v))
+
+(string-append "ba"
+               (double "na"))
+
+(double 21)
\ No newline at end of file
-- 
cgit 1.4.1-2-gfad0