Index finite lists of positive integers: Difference between revisions
Index finite lists of positive integers (view source)
Revision as of 09:46, 13 January 2015
, 9 years ago→{{header|Racket}}
m (→{{header|Racket}}: stub added) |
|||
Line 348:
=={{header|Racket}}==
{{trans|Tcl}} (which gives credit to [[#D]])
<lang racket>▼
▲<lang racket>#lang racket/base
(require (only-in racket/string string-join string-split))
(define (integer->octal-string i)
(number->string i 8))
(define (octal-string->integer s)
(string->number s 8))
(define (rank is)
(string->number (string-join (map integer->octal-string is) "8")))
(define (unrank ranking)
(map octal-string->integer (string-split (number->string ranking 10) "8")))
(module+ test
(define loi '(1 2 3 10 100 987654321 135792468107264516704251 7))
(define rnk (rank loi))
(define urk (unrank rnk))
(displayln loi)
(displayln rnk)
(displayln urk))</lang>
{{out}}
<pre>(1 2 3 10 100 987654321 135792468107264516704251 7)
1828381281448726746426183460251416730347660304377387
(1 2 3 10 100 987654321 135792468107264516704251 7)</pre>
=={{header|REXX}}==
|