Post by: Demon on January 28, 2007, 02:58:00 pm
Is there any thing I can do to make it any smaller or faster?
(‾ == negative)
Syntax:
"
1: Get value of an element from arrayy
2: Find string in array
3: Replace an element in array with string
4: Add an element to the array
5: Delete an element from the array
Example:
"1:000HI:HELLO:TEST:WAZZUP!
Returns: "HELLO"
"2:HI:HELLO:TEST:WAZZUP!sin‾1(TESTsin‾1(3
Returns: 2
"3:001HI:HELLO:TEST:WAZZUP!sin-1(WAT IT DO?sin‾1(3
Returns: "HI:WHAT IT DO?:TEST:WAZZUP!"
"4:002HI:HELLO:TEST:WAZZUP!sin-1(WAT IT DO?sin‾1(3
Returns: "HI:HELLO:WHAT IT DO?:TEST:WAZZUP!"
"4:003HI:HELLO:TEST:WAZZUP!
Returns: "HI:HELLO:WAZZUP!"
QuoteBegin-"BASIC Code"+-->
| QUOTE ("BASIC Code") | ||||
| :DelVar XAns→Str7 :expr(sub(Ans,1,1→Z :sub(Str7,2,1→Str6 :sub(Str7,3,length(Str7)-2→Str7 :1+inString(Ans,"sin‾1( :If Ans>1:Then :sub(Str7,Ans,length(Str7)-Ans+1→Str5 :length(Ans→K :1+inString(Str5,"sin-1( :If Ans>1:Then :1+expr(sub(Str5,Ans,length(Str5)-Ans+1→V :sub(Str5,1,‾1+inString(Str5,"sin‾1(→Str5 :Else :‾1→X :End :sub(Str7,1,length(Str7)-1-K→Str7 :Else :"sin‾1(→Str5 :End :If X<0:Return :If Z=2:Goto 2 :expr(sub(Str7,1,3→Y :sub(Str7,4,length(Str7)-3)+Str6→Str7 :DelVar W1→P/Y :For(X,1,Y :1+W→W :min(length(Str7)-1,1+inString(Str7,Str6,P/Y→P/Y :End :If Z=1:Goto 1 :length(sub(Str7,Ans,inString(Str7,Str6,Ans)-Ans→X :If Z=3:Goto 3 :If Z=4:Goto 4 :If Z=5:Goto 5 :Lbl 1 :sub(Str7,Ans,inString(Str7,Str6,Ans)-Ans→Str7 :Return :Lbl 2 :inString(Str7,Str5→X :If Ans:Then :1→P/Y:0→PMT :While P/Y≠X :1+inString(Str7,Str6,P/Y→P/Y :1+PMT→PMT :End :Else:‾1:End :Return :Lbl 3 :" Post by: DJ Omnimaga on January 29, 2007, 02:59:00 am Post by: Demon on January 29, 2007, 12:55:00 pm It could even use this to make multilingual programs, but it might need to be sped up a little before that... maybe if I write it in ASM (yeah, like that's ever gonna happen...) I'll have the 8xp version later 'cause I gotta work on it a little bit more and get rid of those "one-element" errors. Post by: DJ Omnimaga on January 30, 2007, 03:11:00 am  I must have missed something. You have lot of projects you know :D
Post by: Halifax on January 30, 2007, 10:59:00 am ASM :rocket:  ASM :chaingun:  Rock on :rockband:  :woship:  :woship::woship::woship::woship::woship::woship::woship: :woship::woship::woship::woship::woship::woship:
Post by: trevmeister66 on January 30, 2007, 11:34:00 am Laziness :chaingun: mmm... maybe some oter day <_< 
Post by: DJ Omnimaga on January 31, 2007, 03:21:00 am 
Post by: trevmeister66 on January 31, 2007, 11:08:00 am  Post by: DJ Omnimaga on February 01, 2007, 03:26:00 am and yeah i saw the grayscale low res porn movie you posted in the irc channel yesterday, that was a quite huge set of 8xp files o.o (666 KB)j/k Post by: Demon on February 01, 2007, 02:47:00 pm Now you can have all sorts of arrays and even multi-dimensional arrays with less trouble. It'll get released with PyroEdit III. Post by: Jon on February 01, 2007, 04:40:00 pm
What's with all the asm-hatin'? Post by: DJ Omnimaga on February 02, 2007, 01:51:00 am Post by: Halifax on February 02, 2007, 09:27:00 am Post by: Demon on February 06, 2007, 03:14:00 pm How would I go about making something like this in ASM? (Yeah, I know I shouldn't be rushing so fast into ASM's deep waters when I already have trouble swimming on the shallow end, but I need this subroutine for some programs I'm making in BASIC). Any suggestings? Post by: Demon on February 06, 2007, 05:51:00 pm 1: Get value of an element from array 2: Find string in array 3: Replace an element in array with string 4: Add an element to the array, increment theta 5: Delete an element from the array, decrement theta. 6: Count the number of elements in the array and put it into theta. c1-->
ec2
|