Rosetta Code

Number reversal game: Difference between revisions

Page Discussion

Number reversal game (view source)

Revision as of 22:54, 28 April 2013

64 bytes removed ,  11 years ago
→‎{{header|Racket}}: Added "#lang racket". Removed extra print if not initially shuffled. Bit of refactoring.
(→‎{{header|Racket}}: fixed my error while correcting the incorrect answer)
(→‎{{header|Racket}}: Added "#lang racket". Removed extra print if not initially shuffled. Bit of refactoring.)
Line 1,919:
 
=={{header|Racket}}==
<lang Racket>#lang racket
(let loop ([nums (range 1 10)] [n 0])
#lang racket
(let loop (cond [n(apply 0]< [nums) (shuffleif (rangezero? 1 10))]n)
(appendloop (reverseshuffle lnums) r))))))0)▼
(printf "#~s: ~s\n" n nums)
(printf "Done in ~s steps.\n" n))]
(cond ((and (apply < nums) (zero? n))
[else (loopprintf 0"Step (shuffle#~s: (range~s\nFlip how many? " 1n 10))nums)
(define-values (applyl <r) (split-at nums (read)))
(printfloop "=>(append Done(reverse inl) ~sr) steps.\n"(add1 n))]))</lang>
(else
(let ([rev (begin (printf "-- How many? ") (read))])
(loop (add1 n) (let-values ([(l r) (split-at nums rev)])
▲ (append (reverse l) r)))))))
</lang>
 
=={{header|Rascal}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/144950"