How to Shoot Yourself in the Foot

soloforce

比较老的一个笑话了，不过还是很好玩

Don't take this page too seriously.... It is the umpteenth variation on the well-known theme "how do I shoot myself in the foot" using Fortran, VB,...you name it. Most of the items were shamelessly plucked of the internet. Of course, Pascal and Delphi come out rather good in the comparison...

All credits to (unknown) original author. Additions made by several others , and by myself

　　　　How to Shoot Yourself in the Foot using

Ada
After correctly packing your foot, you attempt to concurrently load the
gun, pull the trigger, scream, and shoot yourself in the foot. When you
try, however, you discover you can't because your foot is of the wrong
type.

APL
You shoot yourself in the foot, then spend all day figuring out how to
do it in fewer characters.

Access
You try to point the gun at your foot, but it shoots holes in all your
Borland distribution diskettes instead.

ActiveX

Ole_Registration_Error: Cannot find object "ActiveFoot",download the latest drivers.

Assembler
You try to shoot yourself in the foot, only to discover you must first
invent the gun, the bullet, the trigger, and your foot.

Basic(interpreted)
You shoot yourself in the foot with a water pistol until your foot is
waterlogged and rots off.

Basic(compiled)
You shoot yourself in the foot with a BB using a SCUD missile launcher.

Visual Basic
You'll really only appear to have shot yourself in the foot, but you'll
have had so much fun doing it that you won't care.

C
You shoot yourself in the foot.

C++
You accidentally create a dozen instances of yourself and shoot them all
in the foot. Providing emergency medical care is impossible since you
can't tell which are bitwise copies and which are just pointing at
others and saying, "That's me over there."

Cobol
USE HANDGUN.COLT(45), AIM AT LEG.FOOT, THEN WITH ARM.HAND.FINGER ON
HANDGUN.COLT(TRIGGER) PERFORM.SQUEEZE RETURN HANDGUN.COLT(45) TO
HIP.HOLSTER.

Concurrent Euclid
You shoot yourself in somebody else's foot.

dBase
You buy a gun. Bullets are only available from another company and are
promised to work so you buy them. Then you find out that the next
version of the gun is the one that is scheduled to actually shoot
bullets.

Delphi
MyFoot := TFoot.Create( Self );
Gun       := TGun.Create( .45, SOFT_NOSED_BULLETS, 6 );
Gun.Aim( Self.MyFoot);
while Gun.BulletsAvailable  do
       Gun.Shoot( Self.MyFoot );

FORTH
Foot in yourself shoot.

FORTRAN
You shoot yourself in each toe, iteratively, until you run out of toes,
then you read in the next foot and repeat. If you run out of bullets,
you continue anyway because you have no exception handling ability.

HTML
<a target="http://body/lower-half/leg/foot.appendage">Shoot here</a>

HyperTalk
Put the first bullet of the gun into the foot left of leg of you. Answer
the result.

Java
The gun fires just fine, but your foot can't figure out what the bullets
are and ignores them.

LISP
You shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds...

Microsoft
>ActiveX Object "Foot" not found.
>"Foot" will possibly be included in the next release.
>You can upgrade for $500.
>ress OK to Retry or Esc to cancel.

Modula2
After realizing that you can't actually accomplish anything in this
language, you shoot yourself in the head.

Motif
You spend days writing a UIL description of your foot, the trajectory,
the bullet, and the intricate scrollwork on the ivory handles of the
gun. When you finally get around to pulling the trigger, the gun jams.

NeXT
We don't sell guns anymore, just ammunition.

Paradox
Not only can you shoot yourself in your foot, your users can, too.

Pascal
The compiler won't let you shoot yourself in the foot.

Perl
1. You go to CPAN and download Geek, Body::Foot, Gadgets:Gun and
Accesories::Bullet modules.
2. Then:
#!/usr/bin/perl -w
use strict;
use Geek;
use Body::Foot;
use Gadgets::Gun;
use Accesories::Bullet;

my $me = Geek->getBorn($ENV{'USER'});
my $foot = $me->{parts}->{feet}->[0];
die "No feet (maybe both were cut off?), stopped"
      unless defined $foot;
my $gun = ($me->{money} >= Gadgets:Gun::price ? Gadgets:Gun->buy() : Gadgets:Gun->steal);
my @bullets = map { Accesories::Bullet->new() } (0..5);

$gun->load(\@bullets);
while ($gun->{bullets})
{
  $gun->shoot($foot);
  last if $foot->shot();
}
print "Looser!\n" unless $foot->shot();



PL/1
After consuming all system resources including bullets, the data
processing department doubles its size, acquires 2 new mainframes and
drops the original on your foot.

Prolog
You tell your program that you want to be shot in the foot. The program
figures out how to do it, but the syntax doesn't permit it to explain it
to you.


Smalltalk, Actor, et al
After playing with the graphics for 3 weeks, the programming manager
shoots you in the head.

SNOBOL
If you succeed, shoot yourself in the left foot. If you fail, shoot
yourself in the right foot.

Sun
Just as soon as Solaris gets here, you can shoot yourself anywhere you
want.

Unix
% ls
foot.c foot.h foot.o toe.c toe.o
% rm * .o
rm: .o: No such file or directory
% ls
%

XBase
Shooting yourself is no problem. If you want to shoot yourself in the
foot, you'll have to use Clipper.


Windows95
>shoot self in foot
I don't see any self here.

>shoot me in foot
There is no you in the foot.

>shoot foot
I don't know which foot you're talking about.

>shoot left foot
You don't have the gun.

>get gun
You take the gun.
You're lantern just went out.
* * * YOU HAVE DIED * * *
Press OK to confirm.