Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Propose to a Girl

by jesuashok (Curate)
on Sep 08, 2006 at 11:11 UTC ( #571926=poem: print w/ replies, xml ) Need Help??

Hi

#PERL Program to Propose a girl. add modules as per your wish package main; use STD.pm use ISD.pm use PCO.pm use Love.pm use constant CUTE => beautiful_girl_or_ladies; goto all_colleges_and_universities; $ladies = chomp(<STDIN>); if ( $ladies eq Cute ) { $cute_girls_count ++; } while ( !$reply ) { print HEART "I LOVE YOU"; $reply = chomp(<STDIN>); } if ( $reply !~ /I LOVE YOU/i ) { goto all_colleges_and_universities; } else { $lovers_list{$ladies} = 'my_lover'; goto restaurant; } restaurant: { $food++; $smile++; $guy_money->pay = $lover_money->get; goto all_colleges_and_universities; } if ( $time eq '02.30pm' ) { goto cinema; } cinema: { $watch++; if ( $intermission ) { $coke ++; $popcorn ++; $ice_cream++; $guiness ++; # Europe special. Varies depends upon country } } if ( $time eq '06.00pm' ) { goto park; } park: { for ( $time = '06.00pm'; $time <= '08.30pm'; $time += 0.0001 ) { $kiss ++; # I can tell only that, it is upto the reader to us +e any varaibles ;). } } goto home; if ( $time eq '09.30pm' ) { goto pub; } pub: { $friends ++; $party ++; $booze ++; $smoke ++; if ( $pub->close() ) { $pay->bill(); $come->out(); } if ( $highly->intoxicated ) { goto friendsroom; } else { $sweetpan ++; $polo ++; goto home; } } friendsroom: { goto sleep; } home: { if( $mom->shouts() ) { $reasonfiltered = ( $combinedstudy || $projectwork || $friends +bday ); $say->reason(); } if( $dad->shouts() ) { $shut->yourmouth(); } $call->lover(); if( $phone->voice eq ( $lover_dad->voice() || $lover_mom->voice( +)) ) { $hang ++; } else if( $phone->voice() eq $lover->voice() ) { for( $time = '12:30' ; $time <= '1.30'; $time += 0.001 ) { $say->ILuvU() ; $reply = chomp(<STDIN>); } } goto sleep; } sleep: { $dream = 'love'; }

"Keep pouring your ideas"

Considered by xorl: Since the plagiarism has been uncovered why don't we reap this node.
Unconsidered by planetscape: keep (and edit) votes prevented reaping ( keep: 10 edit: 1 reap: 12 )

Comment on Propose to a Girl
Download Code
Re: Propose to a Girl
by jesuashok (Curate) on Sep 08, 2006 at 11:13 UTC

      You don't learn, do you?

      Plagiarism is not the way to guard your precious XP. Or your moral integrity...

      planetscape
Re: Propose to a Girl
by Anonymous Monk on Sep 08, 2006 at 11:38 UTC
    jesuashok
    I guess the same is the copy of c program which i saw already somewhere.

      if you see this "C" program somewhere please let me know. It is my own effort. please don't try to degrade me.
      help If you can, otherwise shut.

      "Keep pouring your ideas"

        Yeah, it's your "original work".

        You and madtoperl should get together; you both seem to have similar loose ideas about authorship.

        Even if the original's author's unknown at least have the decency to say "Inspired by (... link ...)".

        Update: Added another reaped link.

Re: Propose to a Girl
by liverpole (Monsignor) on Sep 08, 2006 at 16:41 UTC
    jesuashok, just so there's no misunderstanding, you are being accused of plagiarism.  Furthermore, Fletch is absolutely correct in making this accusation.

    In case you don't realize how obvious it is that this is NOT your original work, here is the Internet version side-by-side with what you claim to have written yourself:

    ---------------------------------------+------------------------------ +------------ "C Program to propose a girl" | CLAIMED to be written by jesu +ashok Internet version posted 4/21/2006 | for Perlmonks on 9/8/2006 ---------------------------------------+------------------------------ +------------ | #PERL Program to Propose a gi +rl. | | package main; | #include "STD ISD PCO.h" | use STD.pm | use ISD.pm | use PCO.pm #include "love.h" | use Love.pm #define Cute beautiful_lady | use constant CUTE | => beautiful_girl_or_ladi +es; | main() | goto college; | goto all_colleges_and_univers +ities; scanf("100%",&ladies); | $ladies = chomp(<STDIN>); | if(lady ==Cute ) | if ( $ladies eq Cute ) { line++; | $cute_girls_count ++; { | } | while ( !$reply ) { printf("I Love U"); | print HEART "I LOVE YOU" +; | scanf("100%",&reply); | $reply = chomp(<STDIN>); | } | } | if(reply == "GAALI") | main(); | /* go back and repeat the process */| else if(reply == "SANDAL ") | exit(1); | | if ( $reply !~ /I LOVE YOU/i +) { | goto all_colleges_and_uni +versities; | } else if(reply == "I Love U") | else { { | lover =Cute ; | $lovers_list{$ladies} = ' +my_lover'; love = | (heart*)malloc(sizeof(lover)); | } | | goto restaurant; | goto restaurant; | } | restaurant: | restaurant: { | { food++; | $food++; smile++; | $smile++; pay->money = lover->money; | $guy_money->pay = $lover_ +money->get; return(college); | goto all_colleges_and_uni +versities; } | } | if(time==2.30) | if ( $time eq '02.30pm' ) { goto cinema; | goto cinema; | } | cinema: | cinema: { | { watch++; | $watch++; if(intermission) | if ( $intermission ) { { | coke++; | $coke ++; Popecorn++; | $popcorn ++; | $ice_cream++; | $guiness ++; } | } } | } | if(time ==6.00) | if ( $time eq '06.00pm' ) { goto park; | goto park; | } | park: | park: { | { for(time=6.30; | for ( $time = '06.00pm'; time<=8.30; | $time <= '08.30pm'; time+=0.001) | $time += 0.0001 ) { kiss = kiss+1; | $kiss ++; | } free(lover); | return(home); | goto home; | if(time ==9.30) | if ( $time eq '09.30pm' ) { goto pub; | goto pub; | } | pub: | pub: { | { friends++; | $friends ++; party++; | $party ++; booze++; | $booze ++; smoke++; | $smoke ++; | if(pub.close()) | if ( $pub->close() ) { { | pay->bill; | $pay->bill(); come->out; | $come->out(); } | } } | | if (highly->intoxicated) | if ( $highly->intoxicated + ) { goto friendsroom; | goto friendsroom; | } else | else { { | sweetpan++; | $sweetpan ++; polo++; | $polo ++; goto home; | goto home; } | } | } | friendsroom: | friendsroom: { | { goto sleep; | goto sleep; } | } | home: | home: if(mom.shouts()) | if( $mom->shouts() ) { | { reason=(combinedstudy | $reasonfiltered = ( $ +combinedstudy || projectwork | || $projectwork || friendsbday); | || $friendsbday +); say->reason; | $say->reason(); } | } if(dad.shouts()) | if( $dad->shouts() ) { shut->yourmouth; | $shut->yourmouth(); | } | call->lover; | $call->lover(); if(phone->voice==( | if( $phone->voice eq ( $lover_dad->voice() | $lover_dad->voi +ce() || lover_mom->voice)) | || $lover_mom->v +oice()) ) { | { hang++; | $hang ++; } | } else if(phone->voice==lover->voice) | else if( $phone->voice( +) eq | $lover->voice( +) ) { | { for(time=12:30; | for( $time = '12:30' +; time<=1.30; | $time <= '1.30'; time+=0.001) | $time += 0.001 ) { | { say->ILuvU; | $say->ILuvU() ; scanf("100%",&reply); | $reply = chomp(<ST +DIN>); /* "I Love U" already | stored in reply */ | } | } } | } goto sleep; | goto sleep; } | } | sleep: | sleep: { | { *(dream)=love; | $dream = 'love'; } | } } | |

    No amount of protestations of "It is my own effort. please don't try to degrade me." are going to change the facts.

    Update:  Added link (noted first by Fletch)


    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

        In addition to the fine reason given by planetscape above (and I've only uncovered this due to some other digging I've done) - but on one of his earliest nodes posted to perlmonks.org, he clearly indicates his name is "Anthony Jesu Ashok".



        --chargrill
        s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://571926]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-12-23 01:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls