0. #lang racket
1.  
2. ; n represents size of butterfly
3.  
4. (define (get-size n)
5.   (- (* n 2) 1))
6.  
7. (define (get-row n)
8.   (map
9.    (λ (i)
10.      (+ 1 (abs (- i n))))
11.    (range 1 (+ 1 (get-size n)))))
12.  
13. (define (get-mid n)
14.   (- (ceiling (/ (get-size n) 2)) 1))
15.  
16. ; r represents row
17.  
18. (define (get-spaces n r)
19.   (let loop ([n n][r r][i 0][v (get-size n)])
20.     (if (eq? i r) (- v 2) (loop n r (+ 1 i) (- v 2)))))
21.  
22. (define (get-raw-string n)
23.   (apply string-append (map number->string (get-row n))))
24.  
25. (define (get-out-string n r)
26.   (let*
27.       ([spaces (get-spaces n r)]
28.        [offset (/ (- (get-size n) spaces) 2)]
29.        [raw    (get-raw-string n)])
30.     (string-append
31.      (substring raw 0 offset)
32.      (make-string spaces #\ )
33.      (substring raw (- (get-size n) offset)))))
34.  
35. (define (get-butterfly-top n)
36.   (map
37.    (λ (i)
38.      (get-out-string n i))
39.    (range 0 (get-mid n))))
40.  
41. (define (get-butterfly n)
42.   (let ([top (get-butterfly-top n)])
43.     (string-join (flatten `(,top ,(get-raw-string n) ,(reverse top))) "\n")))
44.  
45. (for-each
46.  (λ (i)
47.    (displayln (format "Size: ~a" i))
48.    (displayln (get-butterfly i)))
49.  (range 2 10))
50.  

=>

Size: 2 2 2 212 2 2 Size: 3 3   3 32 23 32123 32 23 3   3 Size: 4 4     4 43   34 432 234 4321234 432 234 43   34 4     4 Size: 5 5       5 54     45 543   345 5432 2345 543212345 5432 2345 543   345 54     45 5       5 Size: 6 6         6 65       56 654     456 6543   3456 65432 23456 65432123456 65432 23456 6543   3456 654     456 65       56 6         6 Size: 7 7           7 76         67 765       567 7654     4567 76543   34567 765432 234567 7654321234567 765432 234567 76543   34567 7654     4567 765       567 76         67 7           7 Size: 8 8             8 87           78 876         678 8765       5678 87654     45678 876543   345678 8765432 2345678 876543212345678 8765432 2345678 876543   345678 87654     45678 8765       5678 876         678 87           78 8             8 Size: 9 9               9 98             89 987           789 9876         6789 98765       56789 987654     456789 9876543   3456789 98765432 23456789 98765432123456789 98765432 23456789 9876543   3456789 987654     456789 98765       56789 9876         6789 987           789 98             89 9               9