Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
4
Task/Rep-string/J/rep-string-1.j
Normal file
4
Task/Rep-string/J/rep-string-1.j
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
replengths=: >:@i.@<.@-:@#
|
||||
rep=: $@] $ $
|
||||
|
||||
isRepStr=: +./@((] -: rep)"0 1~ replengths)
|
||||
17
Task/Rep-string/J/rep-string-2.j
Normal file
17
Task/Rep-string/J/rep-string-2.j
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
isRepStr '1001110011'
|
||||
1
|
||||
Tests=: noun define
|
||||
1001110011
|
||||
1110111011
|
||||
0010010010
|
||||
1010101010
|
||||
1111111111
|
||||
0100101101
|
||||
0100100
|
||||
101
|
||||
11
|
||||
00
|
||||
1
|
||||
)
|
||||
isRepStr;._2 Tests NB. run all tests
|
||||
1 1 1 1 1 0 1 0 1 1 0
|
||||
1
Task/Rep-string/J/rep-string-3.j
Normal file
1
Task/Rep-string/J/rep-string-3.j
Normal file
|
|
@ -0,0 +1 @@
|
|||
nRepStr=: 0 -.~ (([ * ] -: rep)"0 1~ replengths)
|
||||
11
Task/Rep-string/J/rep-string-4.j
Normal file
11
Task/Rep-string/J/rep-string-4.j
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
":@nRepStr;._2 Tests
|
||||
5
|
||||
4
|
||||
3
|
||||
2 4
|
||||
1 2 3 4 5
|
||||
|
||||
3
|
||||
|
||||
1
|
||||
1
|
||||
Loading…
Add table
Add a link
Reference in a new issue