#41✎ 972snail_QSP Contest 1 Contest ParticipantI participated in the first SmileBASIC Source QSP Contest!HelperReceived for being very helpful around SmileBASIC SourceAchievementsAmazing ContributorSomeone thinks I'm an awesome person who has done so much for the community!AchievementsThis doesnt return a string which could cause an error. Allow me to improve that for you.
DEF RND$()
RETURN FORMAT$("%D",RNDF())
END
Posted
#42✎ 992YttriaHead AdminThe last answer returned a string which might have numbers in it, which might cause erroneous behavior if the caller does not expect numbers in a string. Allow me to improve that for you.
Edit: I messed up!
DEF RNDWOD$()
VAR S$ = FORMAT$("%F",RNDF())
VAR I = 0, C$
WHILE I < LEN(S$)
C$ = S$[I]
'remove char if it is a digit
IF C$>="0"&&C$<="9" THEN S$[I]="" ELSE INC I,1
WEND
RETURN S$
END
Posted
Edited
by Yttria
#43✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express YourselfVAR PI$=STR$(PI())
VAR I
'Returns the next digit of pi when called
DEF RND$()
INC I
I=I%LENGTH(PI$) 'make sure the index doesn't exceed the length of PI$
RETURN PI$[I]
END
'get the length of a string
DEF LENGTH S$
VAR I
WHILE MID$(S$,I,1)!="" 'MID$ returns an empty string when out of range
INC I
WEND
RETURN I
END
Posted
#44✎ 374ChemicalexDrawingI like to draw!HobbiesRNGHiddenEaster EggsThird YearMy account is over 3 years oldWebsiteDoes it have to be Smile🅱️asic code?
Posted
#45✎ 329spaceturtlesVideo GamesI like to play video games!HobbiesAvatar BlockI didn't change my avatar for 30 days.WebsiteIntermediate ProgrammerI can make programs, but I still have trouble here and there. Programming Strengthnah just get a random string like this:
DEF RNDS()
RETURN INPUT
END
or Lua:
local a = "" function rndString(_len) for i = 1, math.random(_len) do a..string.char(math.random(255)) end return a end
Posted
Edited
by spaceturtles
#46✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express Yourself
nah just get a random string like this:
DEF RNDS()
RETURN INPUT
END
That doesn't even work
Posted
#47✎ 329spaceturtlesVideo GamesI like to play video games!HobbiesAvatar BlockI didn't change my avatar for 30 days.WebsiteIntermediate ProgrammerI can make programs, but I still have trouble here and there. Programming Strength
nah just get a random string like this:
DEF RNDS()
RETURN INPUT
END
That doesn't even work
the idea does?
Posted
#48✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express Yourself
this is 🅱️ode 🅱️ritique, not 🅱️idea 🅱️ritique
Posted
#49✎ 329spaceturtlesVideo GamesI like to play video games!HobbiesAvatar BlockI didn't change my avatar for 30 days.WebsiteIntermediate ProgrammerI can make programs, but I still have trouble here and there. Programming Strength
this is 🅱️ode 🅱️ritique, not 🅱️idea 🅱️ritique
English with emotes isn't a programming language
Posted
#50✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express YourselfCan someone please help improve my sorting function? It's too slow...
DEF SORT_ARRAY (ARRAY[] )
DIM NEW [0]
FOR J = 0 TO LEN(ARRAY) -1
FOR I=0 TO LEN(ARRAY) - 1
IF ARRAY[I] == MIN(ARRAY) THEN
PUSH NEW, ARRAY[I]
ARRAY[ I] = MAX( ARRAY )
BREAK
ENDIF
NEXT
NEXT
RETURN NEW
END
Posted
Edited
by 12Me21
#51✎ 992YttriaHead Admin'sort an array, javascript style, with some lewd easter eggs
DEF jsSort(A[])
DIM N$[0], E$
WHILE LEN(A)
'valentine's day edition <3
IF (A[0]||0)<3 THEN
PUSH N$,STR$(POP(A))
ELSE
PUSH N$,POP(A)
ENDIF
'valentine's day edition OWO
FOR I = LEN(N) -1 TO 1 STEP -1
IF N$[I] <= N$[I-1] THEN
SWAP N$[I], N$[I-1]
ELSE
BREAK
ENDIF
NEXT
WEND
RETURN N$
END
Posted
#52✎ 471auceps'please dont use 0.00199
DEF NORT(INP[])
DIM RET[LEN(INP)],RES,W,V
FILL RET,0.00199
FOR I=0 TO LEN(INP)-1
RES=0
W=INP[I]
FOR _I=0 TO LEN(INP)-1
V=INP[_I]
INC RES,ABS(0.5+ABS(W-V)/(2*(W-V))*(W-V)/(W-V))
NEXT
IF RET[RES]==INP[I] THEN
REPEAT
INC RES
UNTIL RET[RES] != INP[I]
ENDIF
RET[RES]=INP[I]
NEXT
RETURN RET
END
Posted
#53✎ 278ProKukuQSP Contest 1 Contest ParticipantI participated in the first SmileBASIC Source QSP Contest!Hi! I forgot math exists and only know how to use functions. Is there a simpler way to see if a numerical value is negative, other than using the complicated <0 and the too-convenient SGN( )function?
Posted
Edited
by ProKuku
#54✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express YourselfIF value+(""*@_||!.) <3 THEN ...IF value>>value THEN ...
Posted
Edited
by 12Me21
#55✎ 972snail_QSP Contest 1 Contest ParticipantI participated in the first SmileBASIC Source QSP Contest!HelperReceived for being very helpful around SmileBASIC SourceAchievementsAmazing ContributorSomeone thinks I'm an awesome person who has done so much for the community!Achievementsthis should work:
ON value*value AND VAL("&H8"+"0"*7) GOTO @POS,@NEG
Posted
Edited
by snail_
#56✎ 173312Me21Syntax HighlighterReceived for creating the code syntax highlighter on SBSNight PersonI like the quiet night and sleep late.Express YourselfI need help writing an array rotate function
[1,2,3,4,5] rotate left twice -> [3,4,5,1,2]
Posted
#57✎ 329spaceturtlesVideo GamesI like to play video games!HobbiesAvatar BlockI didn't change my avatar for 30 days.WebsiteIntermediate ProgrammerI can make programs, but I still have trouble here and there. Programming StrengthDEF ROTATE ARR[], N%, LEFT%
IF LEFT% THEN
FOR I=0 TO N%-1
TMP=UNSHIFT(ARR)
PUSH ARR, TMP
NEXT
ELSE
FOR I=0 TO N%-1
TMP=POP(ARR)
SHIFT ARR, TMP
NEXT
ENDIF
RETURN ARR
END
I can't remember what some of the basic array operation functions do like SHIFT
Posted
Edited
by spaceturtles
