~rhcarvalho/+junk/racket

« back to all changes in this revision

Viewing changes to demo/big-x.rkt

  • Committer: Rodolfo Carvalho
  • Date: 2011-05-18 02:33:38 UTC
  • Revision ID: rhcarvalho@gmail.com-20110518023338-w9aon2m9v4fq2f80
Add some demo code

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#lang racket/base
 
2
(require racket/string)
 
3
 
 
4
 
 
5
(define (in-diagonal? i j size)
 
6
  (or 
 
7
   (= i j)
 
8
   (= (+ i j) (sub1 size))))
 
9
 
 
10
(define (make-big-x n)
 
11
  (let ([size (+ (* 2 n) 1)])
 
12
    (string-join
 
13
     (for/list ([i (in-range size)])
 
14
       (build-string
 
15
        size
 
16
        (λ (j)
 
17
          (if (in-diagonal? i j size)
 
18
              #\x
 
19
              #\space))))
 
20
     "\n")))
 
21
 
 
22
 
 
23
(for ([i (in-range 5)])
 
24
  (displayln (make-big-x i))
 
25
  (newline))
 
 
b'\\ No newline at end of file'