5 Cent tip for today [ forum online check ]

Started by newdep, March 05, 2004, 04:45:00 PM

Previous topic - Next topic

newdep

;

; A non regexp users online grabber

; (pre-historic, a little shaving could work)

;

; when inside newlisp a quick check with 'forum to

; see if the registered guru's are online :)

; Does not display "who" actualy, its in the make...



(define (forum)

        (set 'buff (get-url "http://www.alh.net/newlisp/phpbb/index.php">http://www.alh.net/newlisp/phpbb/index.php" ))        

        (set 'buff (slice buff (find "In total" buff)))

        (set 'buff (slice buff 0 (find "Most" buff)))

        (set 'buff (slice buff 0 (find "n" buff)))

        (set 'buff (replace "" buff  ""))

        (set 'buff (replace "
" buff ""))

        buff)





Enjoy..Norman.
-- (define? (Cornflakes))

Lutz

#1

;;
;; non regex users online grabber using old fashioned 'match'
;;

(define (forum)
  (join (collect (match "*In total there*<b>*</b>*Guest?*"
                (get-url  "http://www.alh.net/newlisp/phpbb/index.php"))
         1 2 4 6 7)))

Lutz



ps: like the first one this one doesn't take care of the 'Heisenber Effect' ;-)

newdep

#2
Hi Lutz,



Well im not sure exactly what Heisenber's findings where but it must

have to do someting with repetition of occeurences...I already wondered

who would come up with a smarter and lispy version..Great example and

its quicker also..;-)



Norman.
-- (define? (Cornflakes))

Lutz

#3
In Heisenberg's "Uncertainty Principle" (fundamental to Quantum Physics) he observes that the fact that we measure something may change the measurement itself. In Quantum Physics he meant specifically: measuring an elementary particle's position and momentum.



When inquiring the visitors on the forum the inquiry itself raises the visitor's count.



In software they also talk about Heisen-bugs meaning software bugs which change there occurance or nature when trying to debug them.



Lutz

newdep

#4
aha! :-) I thought i knew that name from somewhere.. though im not

into quantom mechanics (except for Startrek parts :-) And i was not

aware of the fact that the naming was also used for "Self-Solving-bugs

during debugging" ;-) But indeed this self-guest is one to keep track on ;-)



Norman.
-- (define? (Cornflakes))