Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
October 2017
SunMonTueWedThuFriSat
1234567
891011121314
15161718192021
22232425262728
293031    

Calendar Calendar

RSS feeds


Yahoo! 
MSN 
AOL 
Netvibes 
Bloglines 


Social bookmarking

Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of battle programmers alliance on your social bookmarking website

evolution of code

Page 1 of 2 1, 2  Next

View previous topic View next topic Go down

evolution of code

Post  kurosen on Sat Feb 14, 2015 12: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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

beggining

Post  kurosen on Sat Feb 14, 2015 12: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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage x+1

Post  kurosen on Fri Feb 20, 2015 7: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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage x+@

Post  kurosen on Fri Feb 20, 2015 7: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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage x+3

Post  kurosen on Fri Feb 20, 2015 7: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 ?
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage x+4

Post  kurosen on Fri Feb 20, 2015 7: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.
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage 6

Post  kurosen on Fri Feb 20, 2015 8:05 pm

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)
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

thoughts

Post  kurosen on Fri Feb 20, 2015 8:14 pm

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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

stage Y

Post  kurosen on Fri Mar 06, 2015 9:43 pm

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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

state 3m

Post  kurosen on Fri Mar 13, 2015 8:59 pm

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

avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

what a puzzle

Post  Moti Barski on Tue Jun 09, 2015 9:10 pm

to solve this more is needed !

dual battle programming overlord mode

kinjutsu ...
froitsenflakh
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

added conjurati

Post  kurosen on Tue Sep 15, 2015 1:38 pm

error as conjurati
code repair
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

skeleton alg

Post  kurosen on Sat Sep 26, 2015 12: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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

Squared Programming

Post  kurosen on Wed Oct 21, 2015 10:36 pm

avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

the ultimate puzzle

Post  Moti Barski on Sat Nov 14, 2015 4: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
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

mar i/o

Post  Moti Barski on Tue Dec 22, 2015 9:39 pm

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)
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

jealousy

Post  Moti Barski on Wed Dec 23, 2015 7:38 pm

I think I found the alg 4 jealousy
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

Litotes

Post  Moti Barski on Mon Dec 28, 2015 7:37 pm

Litotes Examples
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

a.i and the concept of without

Post  kurosen on Sat Jan 02, 2016 10:56 am

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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

solution possibly

Post  kurosen on Sun Jan 03, 2016 8:12 pm

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
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

wow wow wow

Post  Moti Barski on Sun Jan 03, 2016 9:22 pm

now it makes sense and we can use paradoxers sweet
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

bool gates truth tables

Post  kurosen on Fri Feb 12, 2016 3:11 pm

avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

deduction fate list

Post  kurosen on Fri Feb 12, 2016 3:35 pm

and or xor not
if
else (=if not)
chrono gate
avatar
kurosen

Posts : 64
Join date : 2012-04-17

View user profile

Back to top Go down

something

Post  Moti Barski on Tue Mar 01, 2016 4: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.
avatar
Moti Barski

Posts : 91
Join date : 2011-08-02

View user profile

Back to top Go down

Page 1 of 2 1, 2  Next

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum