Gamelist Review List Song List Watched Journals Forum IRC Gamelist Song List Review List Forum Articles IRC Log Out Add Game Edit Games Add Reviews Edit Reviews Add Songs Edit Songs Log Out Edit Games Edit Reviews Edit Songs Sign Up Log In My Journal My Game Journals Watched Journals All Journals Journal Settings All Journals About Us Staff FAQ
Castle Paradox
Title Bar
Log In Box
 
______  
[more]
    1) Discontinued game by FnrrfYgmSchnish
    2) 8-Bit Graphics Set by FnrrfYgmSchnish
    3) Spoonweaver by Spoon Weaver
    4) Bok's Expedition by FnrrfYgmSchnish
    5) Vore Day RPG by Ronin Catholic
Why the hell is it easier to understand it this way?

 
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Raekuul
Delicious!




Joined: 31 Mar 2004
Posts: 641
Location: Nowhere

PostPosted: Wed Apr 08, 2009 8:39 am    Post subject: Why the hell is it easier to understand it this way? Reply with quote

Yes, I *know* this would never parse, but writing it this way, I *get* it!
Code:
script, Exam_on_series, begin
check_pseries
check_geometric
comparison
check_divergance
check_alternating
check_ratio
check_root
check_integral
end

script, convergant, begin
mark series(convergent, Sum)
end:full

script, divergant, begin
mark series(divergent)
end:full

script, polyone, begin
if L > 1, convergant
elseif L < 1, divergant
else, end:script

script, check_pseries, begin
read series:pseries
assign (p:exponent)
if p > 1, convergant
else, divergant
end:full

script, check_geometric, begin
read series:geometric
assign (a:series(n=0), r:(series(n=1)/a))
if r >= 1, divergant
else, convergant
end:full

script, comparison, begin
determine:form
if form:p
compare(p:highest(p))
elseif form:r
compare(1/(n^2))
end:full

script, check_limit, begin
take:limit
if lim(series, 1, inf) =! 0, divergant
end:full
else
end:script

script, check_alternating, begin
factor:(-1^n) OR (-1^(n-1))
if [b(n+1) <= b(n): all n]
and [lim(series, n, inf) = 0]
convergant
end:full
else
end:script

script, check_ratio, begin
detect:factorial
detect:exponential
L = lim(abs(series(n+1)/series), n, inf)
polyone
end:script

script, check_root, begin
reform:series(root((abs(series)), n))
L = lim(series, n, inf)
polyone
end:script

script, check_integral, begin
reform:series(integral)
integrate(integral, 1, inf)
if lim(integral) =! 0, divergant
end:full


Tim is derived from Hamsterspeak, which is in turn derived from BASIC... I think in BASIC!
_________________
A broken clock is still right twice a day.
Back to top
View user's profile Send private message Visit poster's website
TMC
On the Verge of Insanity




Joined: 05 Apr 2003
Posts: 3240
Location: Matakana

PostPosted: Wed Apr 08, 2009 11:16 pm    Post subject: Reply with quote

Crazy! Tim, you say? Well I can't understand it.
Looks more like a totally unrelated language with "script, name, begin" added. I think I even see a 'reduce' construct.
_________________
"It is so great it is insanely great."
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic
Page 1 of 1

 
You cannot post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


All games, songs, and images © their respective owners.
Terms of Service
©2008 Castle Paradox