543(1): 453 [sage] 2023/10/24(火) 00:55:17.36 ID:Ei0IGfb9(1) AAS
>>500
今度は逆にrustで書いたもの>>453をcで書いてみた
外部ﾘﾝｸ:ideone.com
・参照透過性は考慮していない
・型のパラメータ化？には挑戦してない
・パターンマッチ再現？にも挑戦してない
・クロージャが欲しいところには呼び出し元の文脈を手渡して誤魔化す
・グローバル変数一個使ってノードの再利用を試みてる
・とにかくlist_qsort内部がそれっぽい感じの手順になってたらヨシ
struct node {
int value;
struct node *next;
};
struct node *list_qsort(const struct node *list) {
int pivot;
struct node *sorted = 0, *tail, *smaller, *rest, *a, *b;
if (list) {
pivot = list->value, tail = list->next;
list_partition(&pivot, less_than_context, tail, &smaller, &rest);
sorted = list_append(a = list_qsort(smaller), b = list_cons(pivot, list_qsort(rest)));
list_available_push_all4(smaller, rest, a, b);
}
return sorted;
}