aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Remove-lines-from-a-file/J/remove-lines-from-a-file-1.j Normal file
View file

@ -0,0 +1,6 @@
removeLines=: 4 :0
'count start'=. x
file=. boxxopen y
lines=. <;.2 fread file
(;lines {~ <<< (start-1)+i.count) fwrite file
)

10
Task/Remove-lines-from-a-file/J/remove-lines-from-a-file-2.j Normal file
View file

@ -0,0 +1,10 @@
$ cal >cal.txt
$ cat cal.txt
July 2011
Su Mo Tu We Th Fr Sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

1
Task/Remove-lines-from-a-file/J/remove-lines-from-a-file-3.j Normal file
View file

@ -0,0 +1 @@
2 1 removeLines 'cal.txt'

7
Task/Remove-lines-from-a-file/J/remove-lines-from-a-file-4.j Normal file
View file

@ -0,0 +1,7 @@
$ cat cal.txt
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31