battle programmers alliance

battle programming a forum for elite programmers with extreme will power to sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 evolution of code

View previous topic View next topic Go down 
Go to page : 1, 2  Next
AuthorMessage
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: evolution of code   Sat Feb 14, 2015 4:22 am

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: beggining   Sat Feb 14, 2015 4:27 am

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage x+1   Fri Feb 20, 2015 11:45 pm

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage x+@   Fri Feb 20, 2015 11:47 pm

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage x+3   Fri Feb 20, 2015 11:49 pm

'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 ?
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage x+4   Fri Feb 20, 2015 11:51 pm

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.
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage 6   Sat Feb 21, 2015 12:05 am

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)
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: thoughts   Sat Feb 21, 2015 12:14 am

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: stage Y   Sat Mar 07, 2015 1:43 am

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: state 3m   Sat Mar 14, 2015 12:59 am

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

Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: what a puzzle   Wed Jun 10, 2015 12:10 am

to solve this more is needed !

dual battle programming overlord mode

kinjutsu ...
froitsenflakh
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: added conjurati   Tue Sep 15, 2015 4:38 pm

error as conjurati
code repair
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: skeleton alg   Sat Sep 26, 2015 3:53 pm

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: Squared Programming    Thu Oct 22, 2015 1:36 am

Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: puzzles   Mon Oct 26, 2015 12:46 am

http://www.stoimen.com/blog/2012/03/27/computer-algorithms-brute-force-string-matching/
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: the ultimate puzzle   Sat Nov 14, 2015 8:00 pm

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
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: mar i/o   Wed Dec 23, 2015 1:39 am

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)
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: jealousy   Wed Dec 23, 2015 11:38 pm

I think I found the alg 4 jealousy
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: Litotes   Mon Dec 28, 2015 11:37 pm

Litotes Examples
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: a.i and the concept of without   Sat Jan 02, 2016 2:56 pm

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
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: solution possibly   Mon Jan 04, 2016 12:12 am

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
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: wow wow wow   Mon Jan 04, 2016 1:22 am

now it makes sense and we can use paradoxers sweet
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: bool gates truth tables   Fri Feb 12, 2016 7:11 pm

alg deduction
http://www.electronics-tutorials.ws/boolean/bool_7.html
Back to top Go down
View user profile
kurosen

avatar

Posts : 63
Join date : 2012-04-17

PostSubject: deduction fate list   Fri Feb 12, 2016 7:35 pm

and or xor not
if
else (=if not)
chrono gate
Back to top Go down
View user profile
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: something   Tue Mar 01, 2016 8:24 pm

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.
Back to top Go down
View user profile
 
evolution of code
View previous topic View next topic Back to top 
Page 1 of 2Go to page : 1, 2  Next
 Similar topics
-
» Silenium IDE code for selecting and ajax autopopulate dropdown item
» Export IDE code to JUNIT4, edit and import back to IDE
» Code Geass - Klok's Anime Reviews
» Webdriver code for dropdown selection is not working
» Selenium IDE source code

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: chit chat-
Jump to: