Update all new Tasks

This commit is contained in:
Ingy döt Net 2015-02-20 09:02:09 -05:00
parent 00a190b0a6
commit 91df62d461
5697 changed files with 93386 additions and 804 deletions

View file

@ -0,0 +1,4 @@
replengths=: >:@i.@<.@-:@#
rep=: $@] $ $
isRepStr=: +./@((] -: rep)"0 1~ replengths)

View 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

View file

@ -0,0 +1 @@
nRepStr=: 0 -.~ (([ * ] -: rep)"0 1~ replengths)

View file

@ -0,0 +1,11 @@
":@nRepStr;._2 Tests
5
4
3
2 4
1 2 3 4 5
3
1
1