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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Rep-string/Applesoft-BASIC/rep-string.basic Normal file
View file

@ -0,0 +1,15 @@
10 FOR Q = 0 TO 0: READ S$:L = LEN (S$): ON L > 0 GOSUB 20: NEXT Q: END
20 LET R$ = ""
30 ON L > 1 GOSUB 70
40 PRINT S$":"R$ MID$ (" NONE",1,5 * ( LEN (R$) = 0))
50 LET Q = - 1
60 RETURN
70 FOR I = INT (L / 2) TO 1 STEP - 1
80 T$ = "": FOR T = 0 TO 0:T$ = T$ + LEFT$ (S$,I):T = - ( LEN (T$) < L): NEXT T: IF LEFT$ (T$,L) = S$ THEN R$ = R$ + " " + LEFT$ (S$,I)
90 NEXT I: RETURN
100 DATA "1001110011","1110111011"
110 DATA "0010010010","1010101010"
120 DATA "1111111111","0100101101"
130 DATA "0100100","101"
140 DATA "11","00"
150 DATA "1",""