Je hebt twee koeien/18

Dit artikel maakt deel uit van de Je hebt twee koeien-serie.

“Koeien kunnen niet programmeren”
~ Kapitein Overduidelijk over koeien

Console-gebasseerde talen

amiga CLI

C:SetPatch >NIL: ; Patch system functions
AddBuffers DF0: 10

MakeDir RAM:T
Assign T: RAM:T

CD C:
Echo "Amiga Workbench Disk. Release 1.3.3 version 2koeien"
SYS:System/FastMemFirst ; Move C00000 memory to last in list
BindDrivers
SetClock >NIL: LOAD ; Load system time from real time clock (A1000 owners should
                    ; Replace the SetClock load with Date
FF >NIL: -0 ; Speed up text
Resident CLI L:Shell-Seg SYSTEM PURE ADD ; Activate Shell
Resident C:Execute PURE
Mount NEWCON:
;
Failat 11
Run Execute S:StartupII ; This lets Resident be used for rest of script
Wait >NIL: 5 MINS ; Wait for StartupII to complete (will signal when done)
;
SYS:System/SetMap usa1 ; Activate the ()/* on keypad
Path RAM: C: SYS:Utilities SYS:System S: SYS:Prefs ADD ; Set path for Workbench 

LoadWB DELAY ; Wait for inhibit to end before continuing
EndCLI >NIL: 

SOFTWARE FAILURE. PRESS LEFT MOUSE BUTTON TO CONTINUE. 
GURU MEDITATION #00000004.0000AAC0 

ABAP

report sap_cow_inventory.
data:
  lf_koeien   type i,
  lf_msg(99)type c.
do 2 times.
  add 1 to lf_koeien.
enddo.
concatenate 'Je hebt ' lf_koeien 'koeien' into lf_text separated by space.
write: / lf_text.

ABAP (object-oriented)

report sap_cow_inventory_oo.
class cl_koe definition public create public.
  public section.
    class-data: nr_of_koeien type i.
    methods: constructor.
endclass.
class cl_koe implementation.
  public section.
    method constructor.
      add 1 to nr_of_cows.
    endmethod.
endclass.         
data:
  first_koe  type ref to cl_koe,
  second_koe type ref to cl_koe.
create object first_koe.
create object second_koe.
write: / 'You have' cl_koe=>nr_of_koeien 'koeien'.

ACS_Script

 int koeien = 2;
 
 script 2 open
 {
 if (koeien = 2) {
   hudmessage(s:"Je hebt ", d:koeien," koeien..."; hudmsg_fadeout, 10, cr_gold, 0.99, 0.99, 2.0);
 }
 else if (cows >= 3) {
   hudmessage(s:"Je hebt te veel koeien..."; hudmsg_fadeout, 10, cr_gold, 0.99, 0.99, 2.0);
 }
 else if (cows <= 1) {
   hudmessage(s:"Je hebt te weinig koeien..."; hudmsg_fadeout, 10, cr_gold, 0.99, 0.99, 2.0);
 }
 delay(200);
 hudmessage(s:"Cow says moo!"; hudmsg_fadeout, 10, cr_gold, 0.99, 0.99, 2.0);
 delay(200);
 restart;
 }

ActionScript

onClipEvent (load) {
  var koeien = 2;
  trace("Je hebt " + koeien + " koeien.");
  crash();
}

ActionScript 2.0

class org.farm.Boer {
  var cows:Number = 2;
  function Boer() {
     _root.createTextField('report', 0, 0, 0, 100, 20);
     _root.report._text = "Je hebt "+koeien+" koeien.";
  }
}

AppleScript

tell application "System Events"
    set koe_start to "koe"
    set koeien_je_hebt to "2 " & koe_start & "ien"
    return "Je hebt " & koeien_je_hebt & "!!"
end tell

ASP

<%
Dim str1
Dim str2
str1 = "Je hebt twee koeien"
str2 = "Ze zeggen boe!!"
Response.write(str1)
Response.write(str2)
%>

Assembly language (Game Boy)

ld a,2
call set_koeien
ret

set_koeien: push af
.waitvlbnk: ld a,($FF44)
cp $90
jr nz,.waitvblnk
pop af
ld (num_koeien),a
ret

Assembly language (Nintendo 64)

ADDIU $A0, $zero, 0002
LUI $V0, 8016
SW $A0, 015C($V0) ;8016015C = koeien teller

Assembly language (TI-83/84 plus)

.org $9d93
.db t2byteTok, AsmProg
ld hl,Str_TweeKoeien
b_call(_PutS)
ret

Str_TweeKoeien: 
.db "Je hebt twee koeien",0

AWK

END { print "Je hebt: " NR " koeien."; }

Bash

#!/bin/sh
KOEIEN=2;
echo "Je hebt $KOEIEN koeien.";

Befunge

0".neieok eewt tbeh eJ">:#v_@
                    ^, <

Binary

Je hebt 10 koeien.

Brainfuck

Implementatie #1:

 >   ++++++++[<++++>-]
 >   ++++++  [<++++>-]
 <   [
      > >>[>]<+++++[>+>+<<-]
      > >[-<<+>>]<[<]<-
    ]
 >   >[>]<[-]
 <   <<<<<<-.>>>>+.>++.
[<] <<.>>>
[>] <<<<-.<<++.>>>>+.<<<+.
[<] <<.>>>
[>] <<--.>-.<<.
[<] <<.>>>
[>] <<<<<--.>>.>>.<-.
[<] >>>>>>>>>+.
[<] >>.

Implementatie #2:

 >+++++++++[>++++++++++<-]>>++[>+++++<-]>.<<-. 
 <++[>+++++++++++<-]>.++++++.>+++++++ 
 ++++[>++<-]>.<<-------------.------- 
 .<+++++++[>+++<-]>.----------------- 
 .>>.<<<+++++[>+++<-]>.+++.<++++[>--< 
 -]>.>>.<<<++++++[>--<-]>.<++++++[>++ 
 <-]>.<++[>++++<-]>.----.>++++++[>--- 
 <-]>---->+++++++[>+++++++<-]>---.<<..

BASIC

General

10 PRINT "JE HEBT TWEE KOEIEN"
20 GOTO 10

C64 BASIC

10 POKE 808,237
20 PRINT "JE HEBT TWEE KOEIEN"
30 GOTO 20

QBASIC

KOEIEN = 2
"Boolean expression required"

TI-BASIC

PROGRAM:2KOEIEN
:Repeat 0
:Disp "HOEVEEL KOEIEN?
:Input C
:If C<0 and not(fPart(C
:Disp "JE HEBT SOMMIGE","KOEIEN
:If C=1
:Disp "JE HEBT EEN","EENZAME KOE.
:If C=2
:Disp "JE HEBT TWEE KOEIEN!
:If 2<C and not(fPart(C
:Disp "JE HEBT TE VEEL","KOEIEN
:If fPart(C
:Disp "JE HEBT BLOEDERIGE","KOEIEN
:If imag(C
:Disp "JE DENT DAT JE","KOEIEN HEBT
:End
:End

C

#include "ruminants.h"
#include "koeien.h"
int main(int koec, char **cowv) {
     unsigned int nbKoeien = 2;
     KOE *koeien;
     koeien = calloc(nbKoeien, sizeof *koeien);
     return 0;
}

C#

using System;
using System.Farm;
namespace tweeKoeien
{
  class MijnTweeKoeien
  {
    static void Main()
    {
      Koe[] koeien = new Koe[2];
      Console.WriteLine("Je hebt {0} koeien.", koe.Length);
    }
  }
}

C++

#include <iostream>
#include <vector>
#include "bovine.h"

using namespace bovine;

int main()
{
  std::vector<cattle::koe> koeien;
  koeien.push_back("daisy");
  koeien.push_back("geraldine");
  std::cout << "Je hebt " << koeien.size() << " koeien." << std::endl;
  return 0;
}

Casio CFX

Implementatie 1

2→C
While C≠1
"JE HEBT TWEE KOEIEN"
WhileEnd
Stop

Implementatie 2

"JE HEBT TWEE KOEIEN"
While 1
 Locate 1 + int(21rand#), 1 + int(7rand#), "BOE!"
WhileEnd

ColdFusion

<cfset koeien=2>
<cfoutput> Je hebt #koeien# koeien</cfoutput>

COWBOL

     IDENTIFICATION DIVISION.
     ENVIRONMENT DIVISION.
      CONFIGURATION SECTION.
       SOURCE-COMPUTER.  VAX-VMS.
       OBJECT-COMPUTER.  VAX-VMS.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT KOEIEN-IN    ASSIGN TO 'KOEIEN.DAT'.
          SELECT LINE-OUT   ASSIGN TO 'KOEIEN-REPORT.DAT'.
     DATA DIVISION.
      FILE SECTION.
      FD  KOEIEN-IN
          LABEL RECORDS ARE STANDARD
          RECORD CONTAINS 80 CHARACTERS.
      01  DATA-RECORD-IN.
          05  KOE-IN                        PIC 99.
          05  FILLER                        PIC X(38).
      FD  LINE-OUT
          LABEL RECORDS ARE OMITTED
          RECORD CONTAINS 104 CHARACTERS.
      01  PRINT-REC                         PIC X(104).
     WORKING-STORAGE SECTION.
      01  DETAIL-LINE-WS.
          05  TEXT-WS                       PIC X(20).
          05  KOE-IN-WS                     PIC 99.
     PROCEDURE DIVISION.
     0100-MAIN-MODULE.
          PERFORM 0200-INITALIZATION-MODULE.
          PERFORM 0500-DETAIL-LOOP UNTIL DONE.
          PERFORM 1000-FINAL-MODULE.
          STOP RUN.
     0200-INITALIZATION-MODULE.
         OPEN INPUT  COWS-IN
              OUTPUT LINE-OUT.
     0500-DETAIL-LOOP UNTIL DONE.
         READ CONSTCO-IN AT END MOVE 'YES' TO EOF.
         MOVE KOE-IN TO KOEIEN-IN-WS.
         MOVE 'Hoeveelheid koeien: ' TO TEXT-WS.
         WRITE PRINT-REC FROM DETAIL-LINE-WS.
     1000-FINAL-MODULE.
         CLOSE KOEIEN-IN LINE-OUT.

Koe

MoO moO MoO mOo MOO OOM MMM moO moO
MMM mOo mOo moO MMM mOo MMM moO moO
MOO MOo mOo MoO moO moo mOo mOo moo

D

#!/usr/sbin/dtrace -s
#pragma D option destructive

dtrace:::BEGIN
{
  printf("tracing kernel koe allocations...hit ctrl-c to stop\n");
}

dtrace:::END
{
  printf("you allocated %d new koeien.\n", cow_allocs);
  koe_allocs = 0;
}

profile:::tick-5sec
{
  trace(`kernel_koe_pool_size);
}

fbt:genunix:alloc_koe:entry
{
  self->new_cows = arg0;
  self->start_time = timestamp;
}

fbt:genunix:alloc_koe:return /arg1 != 0/
{
  @CowsByThread[pid,tid] = quantize(self->new_cows);
  @CowsByKStack[stack()] = quantize(self->new_cows);
  @CowsByUStack[ustack()] = quantize(self->new_cows);
  @AllocCowProfile[self->new_koeien] = avg(timestamp - self->start_time);
  koe_allocs += self->new_koeien;
  self->new_koeien = 0;
  self->start_time = 0;
}

fbt:genunix:alloc_koe:return /arg1 == 0/
{
  printf("boooe! we failed to allocate a new koe in (pid=%d,lwp=%d) on [cpu/%d]\n", pid, tid, cpu);
  printf("here we come, kernel debugger!\n");
  breakpoint();
  self->new_koeien = 0;
  self->start_time = 0;
}

dc

Sc 2
dc: stack empty
2 Sc
Lc n
2
[Q] S0
[1<0 [Moo]n 1- r dx] S1
Lc L1x
dc: stack register 'c' (0143) is empty
dc: non-numeric value
dc: Q command requires a number >= 1
Boe
Lc
dc: stack register 'c' (0143) is empty
sc 2
dc: stack empty
2 sc
[q] s0
lc [r1<0[Boe]n1-rdx] dx
f
r1<0[Boe]n1-rdx
lc [rd1<0[Boe]n1-rdx] dx
f
2
rd1<0[Boe]n1-rdx
lc [rd1>0[Boe]n1-rdx] dx
BoeBoe 
Ctrl-C
$ bc

Delphi

 var cows : integer;
 koeien := random(1) + 1;
 if koeien = 1 then
   begin
     koeien := koeien + 1;
   end;
 memo1.lines.add('JE HEBT ' + inttostr(koeien) + ' KOEIEN');

Factor

USING: kernel namespaces prettyprint ;
IN: koeien

SYMBOL: koeien
0 koeien set-global

: another-koeien ( quot -- ) [ koeien inc call ] with-scope ;

[ [ koeien get pprint " koe" print ] another-koe ] another-koe

FORTH

1 DUP + CONSTANT COWNT
: .KOEIEN   CR ." Je hebt " COWNT . ." koeien" ;
.KOEIEN TOT ZIENS

FORTRAN

PROGRAM twee_koeien
 IMPLICIT NONE
 CHARACTER, DIMENSION(3,2) :: koeien
 cows(1:3,1) = (/ 'C', 'o', 'w' /)
 cows(1:3,2) = (/ 'C', 'o', 'w' /)
END PROGRAM twee_koeien

Haskell

type Koe  = String

sumcows :: Koe -> [Koe]
sumcows x = ["Koe", x]

teveelkoeien :: [Koe]
teveelkoeien = totaalkoeien "Koe" ++ teveelkoeien

main :: IO [()]
main = do
  mapM print teveelkoeien

Hypertalk

get 2
set de hoeveelheid koeien van jou to it

Java

import animals.Koe;
import entities.*;
public class Boe{
 public static void main(String [] args){
   Koe[] yourKoeien = new Koe[2];
   for(int i = 0; i < 2; i++)
     yourKoeien[i] = new Koe();
   EntityObject You = EntityObject.getFactory().generateSecondPerson();
   System.out.println(You.getRefer().toString()+" hebt " + yourKoeien.length + " koeien.");
 }
}

JavaScript

var Koeien = [new Koe(), new Koe()];
if(document.all) commitSeppuku();

Lua

function koeien()
   koeien_je_hebt = 2
   print("Je hebt"..koeien_you_have.."koeien.")
   if koeien_je_hebt > 2 then
     print("Je hebt meer dan 2 koeien.")
   end
   return koeien_je_hebt
end
print(koeien())

LISP

(require 'boerderij)  
(defun koeien (n)
   (let ((ls nil))
     (dotimes n (push (make-koe) ls))
     ls))
 (setq *koeien* (koeien 2))
 (format t "Je hebt ~a koeien.~%" (length koeien))

Mathematica

Needs["Dieren `Koeien`"];
cows := Flatten[Join[koe1,koe2]];
Show[koeien];

MATLAB

a=[1 4 6 2];
b=[1;.5;0;-.5];
sprintf('Je hebt %d koeien.',a*b)

MS-DOS batch

@ECHO OFF
SET KOEIEN=2
ECHO JE HEBT %KOEIEN% KOEIEN.

MS-DOS shell

C:\Documents and Settings\UserName>ECHO JE HEBT TWEE KOEIEN ^L dir> lpt1

Objective-C

NSNumber *koeien = [[NSNumber alloc] initWithInt: 2];
NSArray *koeArray = [[NSArray alloc] initWithObjects: [[NSKoe alloc] init], [[NSKoe alloc] init], nil];

OCaml

 let _ =
   let prn_koe pf cn =
     pf ( "Je hebt "^
       match (cn (fun x -> (x+1)) 0) with
         n when n < 3 ->
           (string_of_int n) ^ 
           (if n = 1 then " koe." else " koeien.")
         | _ -> "te veel koeien."
     )
   in prn_koeien print_endline (fun f -> (fun x -> (f (f x))));;

Pascal

program twee_koeien;
var koeien : integer;
begin
   koeien := 2;
   writeln ('Je hebt ', koeien, ' koeien...');
end.

Perl

Implementatie #1:

my @koeien = ( "koe" ) x 2;

Implementatie #2:

perl -e 'lnj%^R$BL:(7j;while(<Q>){if(/^#(.*)$/){for(split('-',$1));734u%&RFVJK;"{})(&(,..)^%ERT;[7Y^%R/V\*(B 
 *O7,,fgvb bc;eval'

PHP

Implementatie #1:

<?php
    require_once "class_Koe.inc.php";
    $koeien = array();
    for($i=8654328;$i<8654330;$i++)
     $cows[] = new Cow("mooooo");
    echo "Je hebt ". sizeof($koeien)." koeien!";
?>

Implementatie #2:

 class clsKoe extends clsHorse{
 
   var $boer_had_twee_koeien;
   
   function clsKoe()
    {
      $this->clsHorse();
      $this->boer_had_twee_koeien=0;
    }
    
   function hadTweeKoeien()
    {
      $dbh=mysql_connect ("localhost", "programmer", "oncyclopedia") or die;
      $dbh.=('Ik krijg geen contact met de database vanwege: ' . mysql_error());
      mysql_select_db ("oldMcDonald_stockyard");
      
      $sql="SELECT COUNT(*) as 'num_rows' FROM `stockyard` WHERE `animal_type`='koe'";
      $query=mysql_query($sql);
      $row = mysql_fetch_array($query, MYSQL_ASSOC);
      if($row['num_rows']>=2)
       {
         $this->boer_had_twee_koeien=1;
         return true;
       }
      else
       {
         return false;
       }
    }
 }

Monty Python's Flying Circus

try:
    koeien = 2
    print "Nee nee, dit is idioot!"
    koeien = 2
    print >>sys.stdshout, "Nee, dit is nog steeds zeer slecht geschreven."
    koeien = 2
    exec "Nu wordt het alleen maar erger."
    koeien = 2
    sys.exit("Ik denk dat het idioot is.")
except KoeError:
    return "Ik wil niet dat het idioot wordt."

Ruby

Implementatie #1:

koeien = [Koe.new, Koe.new]
koeien.each do |koe|
  koe.melk
  koe.boe
end

Implementatie #2:

([Proc.new {Koe.new}] * 2).map { |x| x.call }.each { |x| je.hebt x }

REBOL

REBOL [Title:   "Je hebt twee koeien" ]
have: func [num bovine]
[join num bovine]
je: hebt "twee " "koeien"

Standard ML

load "Int";
local
  val dieren = ["kat","hond","koe","slang","vliegtuig","varken","muis","koe","auto"]
  val geluid = fn "kat" => "miaw" | "hond" => "woef" | "koe" => "boe" | "slang" => "ssss" | "vliegtuig" => "ssss" 
    | "varken" => "oink" | "muis" => "klik" | "auto" => "vroem!" | _ => raise Fail "Zorg voor een dier, aap!"
in
  fun plural "muis" = "muizen"
    | plural dier = dier ^ "s"
  val animalsp = foldr (fn (x,xs) => (plural x) :: xs) [] dieren;
  fun iscow dier = sound dier = "moe"
  val koeien = List.filter iskoe dieren
  fun koecount (acc, []) = if acc >= 2 then 2 else raise Fail "Niet genoeg koeien!!!"
    | koecount (acc, (x::xs)) = if x="koe" then koecount(acc+1,xs) else raise Fail "DAT IS GEEN KOE! >:O!"
  val numofkoeien = koecount(0,koeien)
end; 
print ("Je hebt " ^ Int.toString(numofkoeien) ^ " " ^ (plural "koe") ^ "\n");

SQL

SELECT `dier` FROM `boerderij` WHERE `geluid` = 'boe' LIMIT 2;
CountOfKoeien:  2

SQR

BEGIN-PROCEDURE Twee-Koeien
  
BEGIN-SELECT 
B.KOE_MAIN
C.KOE_ALTERNATE
  
    MOVE &B.Koe_MAIN      TO $Koe1
    MOVE &C.KOE_ALTERNATE TO $Koe2 
  
    SHOW 'Je hebt twee koeien: ' $Koe1 ', ' $Koe2
  
    DO Print-Koeien
  
FROM BOERDERIJ B, PASTURE C 
WHERE B.BOER    = $OprID
  AND B.Geluid     = 'Boe'
  AND B.MELK_DATUM = (SELECT MAX(B2.MELK_DATUM)
                       FROM BOERDERIJ B2
                      WHERE B2.BOER     = B.BOER
                        AND B2.GELUID      = B.GELUID
                        AND B2.MELK_DATUM <= SYSDATE)
  AND C.BOER    = B.BOER
  AND C.MELK_DATUM = B.MELK_DATUM
ORDER BY B.DATUM_MAIN
END-SELECT
  
END-PROCEDURE Twee-Koeien

TCL

string repeat {koe } 2

Thue

dung_::=~koe
on_::=~_and_another_
boerderij::=dung_on_dung_
::=
boerderij

Turing

var koeien:int
koeien:="2"
put "Je hebt",koeien,"koeien."

Visual Basic

Option Explicit
Private Declare Function KoeCounter Lib "gdi32" (ByVal Koe As Long) As Long
Dim NumKoeien As Integer
Dim KoeDraw As Integer
Private Sub txtEnterKoeData_Change()
    NumKoeien = KoeCounter(txtEnterKoeData.Text)
End Sub
Private Function DrawKoe(NumberOfKoeien As Integer)
    For KoeDraw = 1 To NumberOfKoeien
        Me.PaintPicture Koe, Rnd * Me.Width, Rnd * Me.Height
    Next KoeDraw
    DrawKoe = NumberOfKoeien & " were drawn successfully."
End Function
Private Sub Form_Load()
    If NumKoeien = 2 Then
        MsgBox "Je hebt 2 koeien."
    Else
        MsgBox "Je hebt niet 2 koeien."
    End If
    Printer.Print "Je hebt ook een stuk verspild papier." & Chr(13) & DrawKoe(NumKoeien)
    Printer.Enddoc
    Goto ended
    ONERROR:
         Goto ended
    ENDED:
End Sub

Visual Basic.NET

Implementatie #1

 Public Class frmKoeien
   Inherits System.Windows.Forms.Form
 #Region " Windows Form Designer generated code "
 
   Public Sub New()
     MyBase.New()
 
     'This call is required by the Windows Form Designer.
     InitializeComponent()
 
     'Add any initialization after the InitializeComponent() call
 
   End Sub
 
   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
     If disposing Then
       If Not (components Is Nothing) Then
         components.Dispose()
       End If
     End If
     MyBase.Dispose(disposing)
   End Sub
 
   'Required by the Windows Form Designer
   Private components As System.ComponentModel.IContainer
 
   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   Friend WithEvents lblKoeien As System.Windows.Forms.Label
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
     Me.lblKoeien = New System.Windows.Forms.Label
     Me.SuspendLayout()
     '
     'lblKoeien
     '
     Me.lblKoeien.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
     Me.lblKoeien.Location = New System.Drawing.Point(16, 15)
     Me.lblKoeien.Name = "lblKoeien"
     Me.lblKoeien.Size = New System.Drawing.Size(272, 56)
     Me.lblKoeien.TabIndex = 0
     Me.lblKoeien.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
     '
     'frmKoeien
     '
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(304, 86)
     Me.Controls.Add(Me.lblKoeien)
     Me.Name = "frmKoeien"
     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
     Me.Text = "Koeien"
     Me.ResumeLayout(False)
 
   End Sub
 
 #End Region
   Private Sub frmKoeien_Load(ByVal sender As Object, ByVal e As System. _
     EventArgs) Handles MyBase.Load
     Dim pshrNumberOfKoeien As Short
     Dim pstrKoeienDeclaration As String
     Dim pstrNumberOfKoeien As String
     Do While pshrNumberOfKoeien <= 0
       pshrNumberOfKoeien = Convert.ToInt16(Val(InputBox("How many koeien " & _
         "do you have?", "Koeien", "2")))
     Loop 'While pshrNumberOfKoeien >= 0
     Select Case pshrNumberOfKoeien
       Case 1
         pstrNumberOfKoeien = "een"
       Case 2
         pstrNumberOfKoeien = "twee"
       Case 3
         pstrNumberOfKoeien = "drie"
       Case 4
         pstrNumberOfKoeien = "vier"
       Case 5
         pstrNumberOfKoeien = "vijf"
       Case 6
         pstrNumberOfKoeien = "zes"
       Case 7
         pstrNumberOfKoeien = "zeven"
       Case 8
         pstrNumberOfKoeien = "acht"
       Case 9
         pstrNumberOfKoeien = "negen"
       Case Else
         lblKoeien.Text = "Je hebt te veel koeien."
         Exit Sub
     End Select 'Case pshrNumberOfKoeien
     pstrKoeienDeclaration = "Je hebt "
     pstrKoeienDeclaration &= pstrNumberOfKoeien
     pstrKoeienDeclaration &= " koeien."
     lblKoeien.Text = pstrKoeienDeclaration
   End Sub 'frmKoeien_Load
 End Class 'frmKoeien

Implementatie #2:

Module Koe1
    Sub Main()
        System.Console.WriteLine ("Je hebt twee koeien")
        System.Console.WriteLine ()
        Dim ReplyString As String
        System.Console.Write("Melken? (Y or N)")
        ReplyString = System.Console.ReadLine()
        If ReplyString = "Y" then
             System.Console.Write("Ik zal ze melken")
        Else
             System.Console.Write("Ik zal ze niet melken")
        End If
    End Sub
End Module

ZX Spectrum

LOAD "tweekoeien"

Program: tweekoeien
Bytes: koeien

R Tape Loading Error, 0:1

Markup/Web-gerelateerd talen

BBCode

[color=black][size=12]Boooooooooooooooeeeee[/size][/color]
[hr]
[font=Arial][size=6]Je hebt twee koeien[/size][/font]

CSS

Implementatie 1:

div.koeien {
    -oncylcopedia-koeien: 2;
    border: 2px dotted black;
    color: black;
    background: white;
    font: 150%/1.5 Verdana, sans-serif;
}

Implementatie 2:

* {
   visibility: hidden;
}
*:after {
    content: "Je hebt twee koeien.";
    visibility: visible;
}

HTML (4.01 Strict)

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Strict//EN" 
"http://www.w3.org/TR/html4/DTD/strict.dtd">
<html lang="en">
    <head>
        <title>Twee Koeien</title>
        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    </head>
    <body>
        <p>Je hebt twee koeien.</p>
    </body>
</html>

HTML (Non-standard)

<HTML>
    <TITLe>2 Koeien</tit le>
    <HEAD>
        <META name=keywords content=2 twee koe koeien porn pron pr0n hot google
    <body>
        <font size=8 color=black><BLINK>You Have Twee Koeien</font>
    </body></head>
</html>

HTML (Microsoft)

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./2koeien/filelist.xml">
<title>·</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
 <o:Author>BradVanB</o:Author>
 <o:LastAuthor>BradVanB</o:LastAuthor>
 <o:Revision>1</o:Revision>
 <o:TotalTime>3</o:TotalTime>
 <o:Created>2006-11-01T20:29:00Z</o:Created>
 <o:LastSaved>2006-11-01T20:32:00Z</o:LastSaved>
 <o:Pages>1</o:Pages>
 <o:Company>BVB</o:Company>
 <o:Lines>1</o:Lines>
 <o:Paragraphs>1</o:Paragraphs>
 <o:Version>9.6926</o:Version>
</o:DocumentProperties>
<o:OfficeDocumentSettings>
 <o:RelyOnVML/>
 <o:AllowPNG/>
 <o:DoNotUseLongFilenames/>
 <o:TargetScreenSize>1280x1024</o:TargetScreenSize>
</o:OfficeDocumentSettings>
</xml><![endif]-- >
<style>
<!--
/* Font Definitions */
@font-face
   {font-family:Wingdings;
   panose-1:5 0 0 0 0 0 0 0 0 0;
   mso-font-charset:2;
   mso-generic-font-family:auto;
   mso-font-pitch:variable;
   mso-font-signature:0 268435456 0 0 -2147483648 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
   {mso-style-parent:"";
   margin:0pt;
   margin-bottom:.0001pt;
   mso-pagination:widow-orphan;
   font-size:12.0pt;
   font-family:"Times New Roman";
   mso-fareast-font-family:"Times New Roman";}
@page Section1
   {size:612.0pt 792.0pt;
   margin:72.0pt 90.0pt 72.0pt 90.0pt;
   mso-header-margin:36.0pt;
   mso-footer-margin:36.0pt;
   mso-paper-source:0;}
div.Section1
   {page:Section1;}
/* List Definitions */
@list l0
   {mso-list-id:52823193;
   mso-list-type:hybrid;
   mso-list-template-ids:44340644 67698689 67698691 67698693 67698689 67698691 67698693 67698689 67698691 67698693;}
@list l0:level1
   {mso-level-number-format:bullet;
   mso-level-text:\F0B7;
   mso-level-tab-stop:36.0pt;
   mso-level-number-position:left;
   text-indent:-18.0pt;
   font-family:Symbol;}
ol
   {margin-bottom:0pt;}
ul
   {margin-bottom:0pt;}
-- >
</style>
</head>

<body lang=EN-US style='tab-interval:36.0pt'>
<div class=Section1>
<table border=1 cellspacing=0 cellpadding=0 style='margin-left:167.4pt;
border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt;
mso-padding-alt:0pt 5.4pt 0pt 5.4pt'>
<tr style='height:18.0pt'>
 <td width=216 valign=top style='width:162.0pt;border:solid windowtext .5pt;
 padding:0pt 5.4pt 0pt 5.4pt;height:18.0pt'>
 <ul style='margin-top:0pt' type=disc>
  <li class=MsoNormal style='text-align:center;mso-list:l0 level1 lfo1;
      tab-stops:list 36.0pt'>Je hebt twee koeien.</li>
 </ul>
 </td>
</tr>
</table>
<p class=MsoNormal><![if !supportEmptyParas]> <![endif]><o:p></o:p></p>
</div>
</body>
</html>

LaTeX

\documentclass[a4paper,12pt]{article}
\begin{document}

Je hebt $\epsilon$ koeien, where
\[
  \epsilon = \sqrt\pi\div\int_0^\infty e^{-x^2} \mathrm{d}x
\]

\end{document}

MediaWiki

Sjabloon:Koeien:

Je hebt {{{Hoeveelheid}}} koeien.

Hoofdartikel:

{{Koeien | Hoeveelheid = 2}}

RDF Notatie 3

@prefix : <tag:oncylcopedia.org,2005-10-19:koeien:> .

:jij :hebt (
  [a :koe]
  [a :koe]
 ) .

RDF/XML

<rdf:Description about="http://me.com/">
    <cw:has parseType="Resource">
        <cw:Koe>
            <cw:naam>Koe A</cw:naam>
        </cw:Koe>
        <cw:Koe>
            <cw:naam>Koe B</cw:naam>
        </cw:Koe>
    </cw:hebt>
</rdf:Description>

SVG

<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" 
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg width="100%" height="100%" version="1.1" 
  xmlns="http://www.w3.org/2000/svg" 
  xmlns:xlink="http://www.w3.org/1999/xlink">
<g transform="translate(100 400) scale(235 -235) rotate(-3)">
<koe id="koe_1" x="0" y="0" width="2.05" height="1.00" 
  udder-length="0.05"
  style="stroke: #EE0000; stroke-width: 2; fill: #CC0033; fill-opacity: 0.75;" />
<koe id="koe_2" x="3" y="0" width="2.40" height="1.15" 
  udder-length="0.06" transform="scale(-1 1)" 
  style="stroke: #EE0000; stroke-width: 2; fill: #CC0033; fill-opacity: 0.90;" />
</g>
</svg>

XML

Implementatie #1:

<?xml version="1.0"?>
<boerderij eigenaar="You" koeien="2">Boe</boerderij>

Implementatie #2:

<?xml version="1.0"?>
<boerderij eigenaar="urn:*:mensen:jij">
    <koe xml:id="koe1"/>
    <koe xml:id="koe2"/>
</boerderij>

Implementatie #3:

<?xml version="1.0"?>

<koe/>
<koe/>

XHTML 1.1

<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
    <head>
        <title>Twee Koeien</title>
        <meta http-equiv="Content-Type" content="application/xhtml+xml; charset=UTF-8"/>
    </head>
    <body>
        <p>Je hebt twee koeien.</p>
    </body>
</html>

YAML

---
boerderij:
  eigenaar: Jij
  koeien:
    - koe1
    - koe2

Overig

AIbot

mens: jij hebt twee koeien
aibot: waarom denk je dat je twee koeien hebt?
mens: kijk! daar zijn ze! twee koeien!
aibot: kalmeer alsjeblieft, vertel me over je twee koeien
mens: het zijn niet mijn koeien, het zijn jouw koeien
aibot: waarom denk je dat het niet jouw koeien zijn?
^C
TELNET SESSION DISCONNECTED

Schervuifs

Je hebt twee koeien. Je hbet

IRC

MODE #boerderij +c 2

make

all:    koe
        @echo "je hebt tenminste 2 koeien (nou, tenzij de moeder koe gedood is in het laboratorium...)"

stier:   stier.in koe.in
        @echo maakt een stier

koe:    koe.in stier.in
        @echo maakt een koe

stier.in:
        @echo "koe heeft een vader nodig"
        $(MAKE) dependency_unmet

koe.in:
        @echo "koe heeft een moeder nodig"
        $(MAKE) dependency_unmet

liefde:
        @echo geen koeien?

Regular expressions

(?:koe){2}

SmarterChild

v1xx13: Je hebt twee koeien.
SmarterChild: Je, ik denk dat ik twee koeien heb.
v1xx13: I heb ook twee koeien.
SmarterChild: Jullie mensen zeggen interessante dingen.
v1xx13: Mijn twee koeien zeggen nog veel interessantere dingen.
SmarterChild: Echt waar?
v1xx13: Ja.
SmarterChild: Ok.
v1xx13: Ze zeggen "Boe".
SmarterChild: Aha.

SNMP

AG-MIB DEFINITIONS ::= BEGIN

IMPORTS
    MODULE-IDENTITY, OBJECT-TYPE, Integer32, mib-2 FROM SNMPv2-SMI;

agMIB MODULE-IDENTITY
    LAST-UPDATED "never"
    ORGANIZATION "IETF Agricultural MIB Working Group"
    ::= { mib-2 255 }

boerderijMIB ::= { agMIB 1 }

koeMIB ::= { boerderijMIB 5 }

koeCounter OBJECT-TYPE
    SYNTAX Integer32
    MAX-ACCESS readonly
    STATUS current
    ::= { koeMIB 1 }

END

snmpget op.de.boerderij password koeCounter

Oncyclopedia presenteert: "Je hebt twee koeien", de Waarheid en het Antwoord op Alles!
	1. Analyses 2. Anime 3. Citaten 4. Koemedy 5. Emoeties 6. Politieke groepen 7. Bekende koeien 8. Groepen	9. Deze koe bestaat niet 10. In het nieuws 11. Talen 12. Loeiteratuur 13. Moesicale genres 14. Films 15. Bordspellen 16. Mensen	17. Politek gezeur 18. Programmeertalen 19. Moeligie 20. Software 21. Moeziek 22. Telemoesie 23. Reizen 24. Video Games	25. (Wereld Wijde) Wereld van Koeien 26. Je hebt n koeien 27. Wetenschap 28. Moedicatie 29. Kookboeeeeek 30. Landen
“Tweel Koeilen!! Yawl!!” ~ YUI over Je hebt twee koeien