User:Kernigh: Difference between revisions

From Rosetta Code
Content added Content deleted
(Add es to language list. I first saw it at Rosetta Code:Village Pump/Suggest a language.)
Line 14: Line 14:
{{mylang|Perl|2}}
{{mylang|Perl|2}}
{{mylang|WML|2}}
{{mylang|WML|2}}
{{mylang|es|1*}}
{{mylang|m4|1}}
{{mylang|m4|1}}
{{mylang|PicoLisp|1*}}
{{mylang|PicoLisp|1*}}

Revision as of 03:48, 22 November 2011

My Favorite Languages
Language Proficiency
Ruby 4
C 3
UNIX Shell 3
AWK 2
bc 2
CMake 2
Common Lisp 2
C Shell 2
dc 2
Factor 2*
Java 2
make 2
Perl 2
WML 2
es 1*
m4 1
PicoLisp 1*
Python 1
Scala 1*
sed 1
TI-83 BASIC 1

Language proficiency:

  • 4 I prefer this language.
  • 3 I know much about this language. I can solve many tasks.
  • 2 I know part of this language. I can solve some tasks.
  • 1 I can only use this language for a few simple tasks.
  • * I never used this language until I saw it at Rosetta Code.

Contributions by Kernigh

In progress

<lang c>#include <stdio.h>

  1. include <stdlib.h>
  1. if defined(_WIN32)
  2. include <windows.h>
  3. include <process.h>

/* ARGSUSED */ unsigned __stdcall run2(void *arg) { printf(" %d\n", rand()); printf(" %d\n", rand()); printf(" %d\n", rand()); return 0; }

void run(void) { HANDLE thread; thread = (HANDLE)_beginthreadex(NULL, 0, run2, NULL, 0, NULL); if (thread) { WaitForSingleObject(thread, INFINITE); CloseHandle(thread); } else puts("Error!"); }

  1. elif defined(__unix__)
  2. include <pthread.h>

/* ARGSUSED */ void * run2(void *arg) { printf(" %d\n", rand()); printf(" %d\n", rand()); printf(" %d\n", rand()); return NULL; }

void run(void) { pthread_t thread; if (pthread_create(&thread, NULL, run2, NULL) || pthread_join(thread, NULL)) puts("Error!"); }

  1. else
  2. error Port run() to your system.
  3. endif

int main() { srand(42); puts("Thread A:"); run(); puts("Thread B:"); run(); return 0; }</lang>

Thread A:
  41
  18467
  6334
Thread B:
  41
  18467
  6334