| |
| |
| |
|
Page: 1 2 3 4 5
Comments:
<0> my only problem is that i convert it to seconds
<0> so 20 katun are
<0> 20*7200 days
<0> which are
<0> 20*7200*24*60*60 seconds
<0> ; expr 20*7200*24*60
<1> Gotisch: #3915 (237 clicks) Tcl: 207360000
<0> ; expr 20*7200*24*60*60
<1> Gotisch: #3916 (216 clicks) Tcl: -443301888
<0> ; clock seconds
<1> Gotisch: #3917 (134 clicks) Tcl: 1141599757
<2> why convert it to seconds?
<0> so that i can use clock fromat :)
<3> Gotisch cant remember them types anymore, but double should be able to handle bigger number
<2> % tomayan 1 1 2000
<2> Our Date: 1 1 2000
<2> Mayan Date: 13 20 7 16 3
<2> Which was a Saturday
<2> =)
<0> you know you need to convert from mayan to our
<4> ; expr wide(20)*7200*24*60*60
<1> heidel: #3927 (233 clicks) Tcl: 12441600000
<0> ah
<0> right
<3> expr ?
<5> expr -> http://www.tcl.tk/man/tcl8.4/TclCmd/expr.htm
<2> already done that
<1> expr -> http://Tcl.Tk/man/tcl8.5/TclCmd/expr.htm
<2> i'm on the b) part of the question
<0> meh i still dont get the right date
<2> i did your part in the strangest way ever.
<0> ; proc days { baktun katun tun uinal kin } { set days 0; foreach {what} [list [expr {$baktun - 13}] $katun $tun $uinal $kin] {con} { 144000 7200 360 20 1} { incr days [expr {$what*$con}] }; return $days }
<1> Gotisch: #3935 (362 clicks) Tcl:
<0> ; days 13 20 7 16 3
<1> Gotisch: #3936 (806 clicks) Tcl: 146843
<0> so we convert that to seconds
<0> ; set days [days 13 20 7 16 3]
<1> Gotisch: #3938 (511 clicks) Tcl: 146843
<2> why baktun - 13
<2> and why convert to seconds?
<0> ; set seconds [expr {$days*24*60*60}]
<1> Gotisch: #3941 (250 clicks) Tcl: -197666688
<0> ; set seconds [expr {wide($days)*24*60*60}]
<1> Gotisch: #3942 (291 clicks) Tcl: 12687235200
<0> that can't be can it?
<2> yes...
<2> why baktun -13?
<0> mh my approach sux
<2> lol
<0> ; proc days { baktun katun tun uinal kin } { set days 0; foreach {what} [list $baktun $katun $tun $uinal $kin] {con} { 144000 7200 360 20 1} { incr days [expr {$what*$con}] }; return $days }
<1> Gotisch: #3948 (430 clicks) Tcl:
<0> ; set days [days 13 20 7 16 3]
<1> Gotisch: #3949 (797 clicks) Tcl: 2018843
<0> ; set days [days 13 20 9 2 9]
<1> Gotisch: #3951 (501 clicks) Tcl: 2019289
<0> ; set days2 [days 13 20 7 16 3]
<1> Gotisch: #3952 (558 clicks) Tcl: 2018843
<0> ; expr $days-$days2
<1> Gotisch: #3953 (269 clicks) Tcl: 446
<0> ; set seconds [expr {446*60*24*60}]
<1> Gotisch: #3954 (267 clicks) Tcl: 38534400
<2> ok
<0> ; clock format [expr {[clock scan 2000-1-1] + $seconds}] -format "%D"
<1> Gotisch: #3957 (387 clicks) Tcl: 03/22/01
<2> i'm remaking my frommayan proc
<0> works :)
<2> nice =)
<2> do a tomayan now =P
<0> % Mayan::ToChristian 13 20 9 2 9
<0> 03/22/01
<0> ok
<0> is that the second one?
<0> oh exra one :)
<0> ok
<2> =)
<2> ok i think i finished both of mine
<2> just testing
<0> wait a second
<0> one baktun are 144000 days right?
<0> ; expr 144000*60*24*60
<1> Gotisch: #3974 (196 clicks) Tcl: -443301888
<0> ; expr wide(144000*60*24*60)
<1> Gotisch: #3975 (220 clicks) Tcl: -443301888
<0> ; expr wide(144000)*60*24*60
<1> Gotisch: #3976 (291 clicks) Tcl: 12441600000
<0> clock format 12441600000 -format "%D"
<1> Gotisch: #3977 (238 clicks) Tcl: 12/15/55
<2> hmph
<2> proc frommayan {baktuns katuns tuns uinals kins} {
<2> % frommayan 13 20 7 16 3
<2> can't read "baktuns": no such variable
<2> hmmm lol
<2> % frommayan 13 20 7 16 3
<2> -2 1 2000
<2> ahah it works =)
<2> i can even get the day
<0> damn
<0> % Mayan::ToMayan 03/22/01
<0> 37katuns 14tuns 18uinals 13kinss
<0> :]
<0> im just a bit off :]
<2> =P
<0> you got it?
<0> -2 doesnt seem so good
<5> [PASTE] [GRiMMY] just pasted code at http://paste.anbcs.com/4045 (a worked solution to the problem @ http://www.olympiad.org.uk/papers/2004/bio/a1)
<2> =)
<2> i'm not sure if the day is correct
<2> expr 366/7
<1> [GRiMMY]: #4004 (183 clicks) Tcl: 52
<2> expr 366%7
<1> [GRiMMY]: #4005 (181 clicks) Tcl: 2
<2> expr 31 % 7
<1> [GRiMMY]: #4006 (218 clicks) Tcl: 3
<2> yeah my day is out
<2> in my answers it says Saturday
<2> it should be tuesday
<2> anyway i'm gonna get some sleep
<2> got college in the morning
<2> ttyl
<0> % Mayan::ToMayan 03/22/01
<0> Days: 446
<0> 13baktuns 20katuns 8tuns 20uinals 9kinss
<0> damn!
<0> nearly
<0> hey
<0> !
<0> its right
<0> 20 uinals are 1 tun 2 uinals
<0> damn
<0> % Mayan::ToMayan 03/22/01
<0> Days: 446
<0> 13 20 8 20 9
<0> it keeps forgetting that there can only be 18 uinals
<0> uhh
<0> 13 20 7 16 3
<0> isnt this wrong?
<0> shouldnt this be
<0> 14 0 7 16 3
<0> meh i hate it to get stuck on such things :)
<6> > tk dropdown selection box, what should i be looking into, is it possible? am i overlooking standard tk ?
<7> R2_2k: tk_optionMenu
<6> looking, thanks RockShox
<8> regexp -all {<h5>([\w\s]+)</h5>\w*<h4>([\w\s]+)</h4>} $hdata test1 test2
<8> hdata is http://www.bbc.co.uk/radio1/chart/singles.shtml
<8> why dont it work?
<8> hello?
<6> um
<6> whole html? or your reading it from like egghttp?
<8> whole html
<8> whole html file
<8> i want all the albums
Return to
#tcl
or
Go to some related
logs:
#winxp
gamkiller
#debian
#wtf
#microsoft
wow 1.11.1 installing
#nhl
flapwhack
Hate working in Teams
#computers
|
|