Anonymous user
Selective file copy: Difference between revisions
+Racket
SqrtNegInf (talk | contribs) (Added Perl example) |
(+Racket) |
||
Line 930:
AAAAA04XXXXX
AAAAA05XXXXX</pre>
=={{header|Racket}}==
{{trans|Kotlin}}
<lang racket>#lang racket
(define (read+write)
(for ([line (in-lines)])
(define a (substring line 0 5))
(define n (string->number (string-append (substring line 14 15)
(substring line 10 14))))
(printf "~a~aXXXXX\n" a (~a n #:min-width 5 #:align 'right))))
(with-output-to-file "selective-output.txt" #:mode 'text #:exists 'replace
(thunk (with-input-from-file "selective-input.txt" read+write)))</lang>
{{in}}
<pre>
A bbbbB0001+d2345
AA bbbBB0002+1d345
AAA bbBBB0003+12d45
AAAA bBBBB0001-123d5
AAAAABBBBB0002-1234d
</pre>
{{out}}
<pre>
A 1XXXXX
AA 2XXXXX
AAA 3XXXXX
AAAA -1XXXXX
AAAAA -2XXXXX
</pre>
=={{header|REXX}}==
| |||