view tests/mini/bug73.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 1bb99290e03a
children
line wrap: on
line source

int find(char[] s, dchar c)
{
    // c is a universal character
    foreach (int i, dchar c2; s)
    {
    if (c == c2)
        return i;
    }
    return -1;
}

void main()
{
    char[] hello = "hello world";
    int i = find(hello, 'w');
    assert(i == 6);
    i = find(hello, 'z');
    assert(i == -1);
}