battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programmers allianceLog in

battle programming a forum for elite programmers with extreme will power to sharpen their skills

evolution of code

2 posters

descriptionevolution of code Emptyevolution of code

more_horiz
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=Smile", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
MsgBox(m.Value)
Next

End Sub
End Class

descriptionevolution of code Emptybeggining

more_horiz
stage 1 : alg to implement :
get strating and finishing working hours
get time difference
sum time difference

layers :
regex : for getting hour and min from input hours
+ regex import layers

layer mutation : the layer code was copyed from
'battle programming D book
textbox1.text

descriptionevolution of code Emptystage x+1

more_horiz
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text & TextBox2.Text, "(?<=).*?(?=Smile", RegexOptions.IgnoreCase)

layer mutation TextBox1.Text & TextBox2.Text

'this resulted in an error wrong output #s

'battle programming overlordmode activated
'fun

descriptionevolution of code Emptystage x+@

more_horiz
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=Smile", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
If m.Value <> "" Then
MsgBox(m.Value)
End If
Next
layer wrapper :
If m.Value <> "" Then
MsgBox(m.Value)
End If

'this negated the extra empty message of the output

descriptionevolution of code Emptystage x+3

more_horiz
'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=Smile", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
If m.Value <> "" Then
MsgBox(m.Value)
End If
Next

Dim mCollect2 As MatchCollection = Regex.Matches(TextBox2.Text, "(?<=).*?(?=Smile", RegexOptions.IgnoreCase)

For Each m2 As Match In mCollect
If m2.Value <> "" Then
MsgBox(m2.Value)
End If
Next

this for some whateva reosone resuled in the same output twice
hypothesis 0 or is it ?

descriptionevolution of code Emptystage x+4

more_horiz
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 2)
MsgBox(ts1)
End Sub
End Class

an alternative layer used but it is the same alg
so I"ll call it a translation

BTW the code is supposed to output a sume of working hours.

descriptionevolution of code Emptystage 6

more_horiz
stage 6
ts1 = TextBox1.Text.Substring(0, 1)

stage 7
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)

End Sub
End Class

layer duplic or double use for start and finish hour

stage 8

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = ts1 + ts2
End Sub
End Class

err output concated not summed how does my brain recog that ?
asumption fixures of used codes

stage 9
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = CType(ts1, Integer) + CType(ts2, Integer)
End Sub
End Class
code from bp D book : CType(ts1, Integer)

stage 10
formula fix
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)
End Sub
End Class

'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

descriptionevolution of code Emptythoughts

more_horiz
battle programming is not just programming it is something beyond
and U can see it in this thread
how a simple prog task becomes a puzzle

descriptionevolution of code Emptystage Y

more_horiz
stage Y +1

Dim min1 As String
min1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":"), TextBox1.Text.Length() - 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":"), TextBox2.Text.Length() - 1)
MsgBox(min2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

err convertion with ":"


stage Y+ 2

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

End Sub

End Class

stage Y + 3
outputing the time dif :

Imports System
Imports System.Text.RegularExpressions
Public Class Form1
Dim Hour_sum As Integer = 0
Dim minute_sum As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)

Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"
End Sub

End Class
Dim Hour_sum As Integer = 0 ' declared as global var
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

duplicated mutation:
Dim minute_sum As Integer = 0
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)

+ link :
Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"

it's only starting

descriptionevolution of code Emptystate 3m

more_horiz
Imports System
Imports System.Text.RegularExpressions
Public Class Form1
Dim Hour_sum As Integer = 0
Dim minute_sum As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)
Hour_sum += minute_sum / 60
minute_sum = minute_sum Mod 60

Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"
End Sub

End Class
added convertion formula no jutsu fixure
Hour_sum += minute_sum / 60
minute_sum = minute_sum Mod 60
fixure by fixure link by link an algorithm is built
but this almost comlete algorithmic megazord the brain doesn't run
it, not smoothly, there is some kind of I don't know what
to call it...
a puzzle, yes a puzzle I want to see it I want to solve it
at the beggining it looks all complex but then it becomes
pure and usable.
spra assumtion :
1 fixure sys all fixures allready there ?! ready to Ex-quip?!
2 an overall alg that seperates alg fixures from input and builds from them bigger
algs
3 much less likely all big algs preexist and are summoned in some sort of priority
sys

descriptionevolution of code Emptywhat a puzzle

more_horiz
to solve this more is needed !

dual battle programming overlord mode

kinjutsu ...
froitsenflakh

_________________
MB over and out emp it up

descriptionevolution of code Emptyadded conjurati

more_horiz
error as conjurati
code repair

descriptionevolution of code Emptyskeleton alg

more_horiz
I also can use that skill:

greater maximize magic
froitsenflakh

fixture
zording eat or eaten
mutation
duplicate with mutation
duplicate with sp or negative mutation

descriptionevolution of code EmptySquared Programming

more_horiz

descriptionevolution of code Emptypuzzles

more_horiz
http://www.stoimen.com/blog/2012/03/27/computer-algorithms-brute-force-string-matching/

descriptionevolution of code Emptythe ultimate puzzle

more_horiz
the puzzle that solves puzzles, at any rate
layer A event bank
layer B alg generator
what is more interesting to me now is the fireup event looks like :
energy = 0 and or conjurati and gs needed to aquire main goal and
unachieved recent goals with the addition of gs of high val
which seem to be groupedor depend on master codes : high occurace events
chrono prior and later to said other goals such as : get canvas visual studio
set code : Public Class Form1
also notice mutation occurance : Public Class fezet ... end class
delete mutation may also occ to enable the overall activation of the alg such
as commenting the unrelated.

gonna take me a while ya uchuu paruske study

_________________
MB over and out emp it up

descriptionevolution of code Emptymar i/o

more_horiz
at 2.23 https://www.youtube.com/watch?v=iakFfOmanJU
an a.i must have a soul to solve puzzles, emotions and imagination
(alg mutation)

_________________
MB over and out emp it up

descriptionevolution of code Emptyjealousy

more_horiz
I think I found the alg 4 jealousy

_________________
MB over and out emp it up

descriptionevolution of code EmptyLitotes

more_horiz
Litotes Examples

_________________
MB over and out emp it up

descriptionevolution of code Emptya.i and the concept of without

more_horiz
how do you explain to an a.i without ?
it seems very simple at first, if not x.contains y then x is without y, but that is not what I'm
talking about.

a.i get me a tea without sugar, along the path of making me a tea the a.i encounters sugar
now what
a.i make me a tea with sugar
a.i usher the sugar on the self

lets say an a.i likes to wear red and I tell it a.i wear a dress not red
the a.i should in that case wear not red with me and red in other occasions
or just usually not wear that how to program that ?

how would a program recognize opposites ?
why is left the opposite of right
dark and light
big and small
noise and silence

a.i go to the supermarket without a bus :
option a the a.i would ignore that and go by bus
option b the a.i would go by bicycle
option c the a.i would walk

above all what triggers the declaration of this is whitout that and what makes without a goal?

code wize how would that look

can you the reader solve this ? scratch

descriptionevolution of code Emptysolution possibly

more_horiz
1 3 022 : 1 31 022, 022(max)
022 21 > 1 31 022 try polymerization without to with
if paradoxer > 022 max postpone 022
* g = eat

descriptionevolution of code Emptywow wow wow

more_horiz
now it makes sense and we can use paradoxers sweet

_________________
MB over and out emp it up

descriptionevolution of code Emptybool gates truth tables

more_horiz
alg deduction
http://www.electronics-tutorials.ws/boolean/bool_7.html

descriptionevolution of code Emptydeduction fate list

more_horiz
and or xor not
if
else (=if not)
chrono gate

descriptionevolution of code Emptysomething

more_horiz
to do g list

layers :
0 chrono event alg EVAL > 5 OR CONJURATI
*WHITE NOISE LINK TO CHK POINT aroud car, wait to green light
1 basic alg ar20 , alg index latest 5 not in alg if requested with alg * to 0.5
if without try mini -alg cur to chk or g *and compare to alg with
2 cmd and code alg
'2.1 translation filter
2.2 q alg (mutation layer) names, detective, numbers, fixures, questions, time m codes (alarm).
try mutation to digits and such data aquired while alg, if success save digit chrono mark in ar[]
uses copy paste
sim dif in alg (as in orders) for the without data.

alg : arrays[20]
can summon activate up to x default(1...5) algs simoltaniuosly

*finish go to closer chk point : name, field, m code , conjurati.

_________________
MB over and out emp it up
privacy_tip Permissions in this forum:
You cannot reply to topics in this forum